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SUMMARY 


This report contains detailed descriptions of the theoretical 
methods and associated computer codes of a program to smooth and a 
program to scale arbitrary airfoil coordinates. The smoothing pro- 
gram utilizes both least-squares polynomial and least-squares cubic 
spline techniques to smooth iteratively the second derivatives of 
the y-axis airfoil coordinates with respect to a transformed x-axis 
system which unwraps the airfoil and stretches the nose and 
trailing-edge regions. The corresponding smooth airfoil coordinates 
are then determined by solving a tridiagonal matrix of simultaneous 
cubic spline equations relating the y-axis coordinates and their 
corresponding second derivatives. A technique for computing the 
camber and thickness distribution of the smoothed airfoil is also 
discussed. 

The scaling program can then be used to scale the thickness 
distribution generated by the smoothing program to a specified maxi- 
mum thickness which is then combined with the camber distribution to 
obtain the final scaled airfoil contour. Computer listings of the 
smoothing and scaling programs are included as appendices. A user- 
guide and sample input and output cases for both programs are also 
included as appendices. Both computer programs are available from 
COSMIC with identifications LAR-13132 for the airfoil smoothing pro- 
gram "AFSMO" and LAR-13133 for the airfoil scaling program "AFSCL" . 
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INTRODUCTION 


Since its early beginning, the NACA and the NASA have been 
actively involved in the design and testing of airfoil sections 
for a wide variety of applications. During the 1930's, 40's, 

and 50' s, the airfoils developed by the NACA consisted of the 
well-known 4-digit-, 5-digit-, 1-, 6-, and 7-series airfoils. 
These airfoils were generated by combining thickness and camber 
distributions that were defined analytically by polynomial equa- 
tions of various order, and, therefore, the surface coordinates 
of these airfoils are very smooth. A summary of many of the 
NACA airfoils and a detailed description of the equations used 
to generate their coordinates are presented in reference 1. 

During the mid-1960's, the introduction of the supercriti- 
cal airfoil concept by Dr. Richard Whitcomb of the Langley 
Research Center created a renewed interest in the development of 
an improved series of airfoils for applications at high subsonic 
and transonic flow conditions. Initial attempts to generate a 
series of supercritical airfoils from analytical expressions 
were unsuccessful because no theoretical methods were available 
to guide in the selection of adequate analytical expressions 
relating airfoil shape and the desired high-speed flow charac- ' 
teristics. During the early 1970 's, Dr. Paul R. Garabedian of 
New York University developed a series of computer codes for the 
design and analysis of supercritical airfoils with no or very 
weak shocks. These codes, as described in reference 2, relied 
on a system of equations based on the method of complex charac- 
teristics in the hodograph plane and are solved numerically 
using conformal mapping and fast Fourier transform techniques. 
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Daring the mid- and latter-1970 1 s, the NASA was also 
actively involved in the development of an improved series of 
subsonic airfoils for application to general aviation, glider, 
and commuter aircraft. Several computer codes were developed, 
such as the NASA/Lockheed-Georgia Multi-Component Airfoil Code 
(ref. 3) and the Eppler Low-Speed Airfoil Code (ref. 4) to aid 
in the design and analysis of these new airfoils. These codes 
utilize a variety of conformal mapping and distributed source- 
and vortex-singularity methods to obtain the potential flow 
characteristics of the airfoil and a variety of finite- 
difference and integral boundary-layer methods to obtain the 
viscous characteristics. 

Both the subsonic and transonic airfoil codes have under- 
gone extensive refinement and improvement in the past decade and 
are widely utilized by both the domestic and foreign scientific 
communities. The agreement between the theoretical and experi- 
mental characteristics of the airfoils designed using these codes 
has been generally excellent for airfoils with fully attached 
flow. The rapid development of the high-speed digital computer 
since the 1970's has greatly reduced the computer costs to 
design and analyze a new airfoil; therefore, it is no longer 
necessary to test a large number of airfoils to obtain one with 
the desired performance characteristics. The theoretical meth- 
ods used in these computer codes are generally sensitive to the 
numerical techniques used and, as a result, often generate air- 
foils with wavy or unsmooth surface coordinates. The transonic 
airfoils have been shown to be particularly sensitive to coordi- 
nate smoothness both experimentally and theoretically. 
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The purpose of this report is to describe in detail the 
features of a computer code developed to smooth and scale air- 
foil coordinates. The smoothing code utilizes a variety of 
least-squares poynomial and cubic spline techniques to smooth 
the airfoil coordinates in the second derivative. The computer 
code has an internal Langley designation of "AFSMO" and consists 
primarily of a main controlling program and an input, a smooth- 
ing, a punch output, and plotting subroutines. Additional 
subroutines have been included to compute the camber and thick- 
ness distributions of the smoothed airfoil and to interpolate 
additional coordinates. The airfoil scaling program has an 
internal Langley designation of "AFSCL" and uses the camber and 
thickness distribution data generated by the AFSMO code to 
generate additional airfoil shapes with the same camber distri- 
bution and a scaled thickness distribution. The AFSCL code 
consists of a main controlling program, a subroutine to scale 
the coordinates, and a subroutine to fit a cubic spline through 
a set of input points. A detailed description of the smoothing 
and scaling methods used in these codes is presented in addition 
to a discussion of the possible applications of the codes. 
Appendices are included that describe the user input require- 
ments, a sample input case, a sample output listing, sample 
plots, and tabulated listings for both programs. 
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SYMBOLS 



c 

g 

h 

k 

K 

N 

t 

s 

w 


x,y 

x,y 

A /V 

x,y 


ii 


Y 

e 


polynomial coefficients 
chord of airfoil 

generalized cubic spline function 
cubic spline interval 
curvature 

value of x/c where 0 = tt 

total number of upper and lower surface 
coordinates 

thickness 

least-squares cubic spline smoothing parameter 
weighting factor 
coordinates of airfoil 

nondimensionalized x/c and y/c coordinates 
coordinates in local camberline axis system 
x/c and y/c coordinates of camber line 
d (y/c) /d6 
d 2 (y/c) /d0 2 

local surface slope in x- and y-axis system 
local slope of camberline 
x-axis transformation function 


Subscripts : 

c camber 


i iteration or element number 

lower surface 
u upper surface 
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DESCRIPTION OF SMOOTHING METHOD 


Smoothing Criteria 

The smoothness criteria used in the development of the smooth- 
ing method presented in this report is that the curvature distribu- 
tion of the airfoil surface be continuous and smooth. The curva- 
ture, which is the reciprocal of the radius-of-curvature, is defined 
as 



( 1 ) 


The curvature distribution will be continuous, provided the airfoil 
contour is continuous with single-valued upper and lower surface 

coordinates. This can easily be determined by visual inspection of 
the initial input airfoil shape* The application of cubic spline 
functions to relate the smoothed y-axis airfoil coordinates to their 
smoothed second derivatives with respect to the x-axis will insure 
that the first derivatives are smooth and, consequently, that the 
curvature distribution is also smooth. Therefore, the smoothing 
method established is first to compute the second derivatives of the 
input airfoil coordinates, to smooth the second derivatives, and 
then to employ cubic spline functions to determine the new smoothed 
airfoil coordinates. 

The second derivatives of the input y-coordinates are deter- 
mined by fitting a least-squares polynomial to each coordinate and a 
specified number of points adjacent to the coordinate and then by 
analytical differentiation, computing the second derivative of the 
coordinate and its new y-value. This procedure is repeated for each 
y-coordinate until a new set of y-values are obtained which are then 
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substituted for the previous set of y-values. The entire procedure 
is repeated and each time the sum of the squares of the differences 
between the current and prior second derivatives is computed. This 
iterative procedure continues until a specified number of iterations 
have been reached, or the sum of the squares quantity falls below a 
specified value or begins to oscillate. 

X-Axis Transformation Function 

Initial attempts to employ this least-squares polynomial tech- 
nique to an input set of x- and y- coordinates resulted in large 
oscillations in the computed second derivatives and the new y-values 
from one iteration to the next. The oscillation was caused by the 
very rapid change in the curvature in the nose or leading-edge 
region which is characteristic of most airfoils. This problem was 
eliminated by utilizing an x-axis transformation function that 
stretches the axis in the nose region. One such transformation 
function used in the multi-component airfoil analysis code developed 
by Lockheed-Georgia (ref. 3) is 


x = 



cos 



(2) 


where 0 < 8 < ir . However, this transformation function stretches 
the x-axis in both the leading- and trailing-edge regions. For 
application in the multi-component analysis code this stretching at 
both ends of the airfoil is necessary to ensure adequate definition 
of the maximum suction peak in the leading-edge region and to 
properly satisfy the Kutta flow condition in the trailing-edge reg- 
ion. To smooth an airfoil does not require as much stretching of the 
x-axis in the trailing-edge region as in the leading-edge region 
because the curvature is generally considerably less near the 
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trailing edge of the airfoil. The hyperbolic functions behave in a 
manner similar to that for trigometric functions and, after consi- 
derable trial-and-error, the following transformation equation was 
found that reduced the amount of trail ing-edge stretching and that 
could be mated with the trigonometric equation (2) for the leading 
edge : 

x = K |tan 1 [sinh (6 - ir/2)] + 1 } , (3) 

where ir/2 _< 0 < it . The constant K was determined by specifying that 
at 0 equals ir , the value of x is unity; therefore, 


K = = 0.46278 (4) 

tan [sinh (ir/2)J + 1 

By substituting the constant of 1/2 in equation (2) with the con- 
stant K from equation (3), the transformation equation for the 
leading-edge region becomes 

x = K [1 - cos ( 0 ) ] (5) 

where 0 < 9 <_ n/2. 

The first and second derivatives of equation (3) are 
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which verifies that the leading- and trailing-edge transformation 
equations are continuous at the matching point. A plot of the 
resultant transformation function and its first and second deriva- 
tives are presented in figure 1 and tabulated in taole 1. 

The inverse of equation (3) is 


e = tt/ 2 + sinh 

where sinh -l (z) = 
is 


- 1 [tan ( | - 1)] - 

In (z +-\/z 2 + 1) and the inverse of equation 


( 10 ) 

(5) 


0 = COS -1 (1 - £ ). (i!) 

The first and second derivatives of the y-coordinate with respect to 
x can be obtained from the derivatives with respect to the 0 value 
using the following relationships: 

d 5/ d * * 5' «7d0 112 1 

I 

d 2- /d -2 . y"(dx/de) - 21 (d 2 x/d8 2 ) (13) 

(dx/d0r 


Piecewise Least-Squares Polynomial Smoothing to Determine 

Second Derivative 

The piecewise least-squares polynomial smoothing procedure 
requires that the independent variable increase monotonically to 
prevent simultaneous smoothing of upper and lower surface coordi- 
nates. This meant simply that the airfoil had to be unwrapped 
around the nose, which was easily accomplished by letting. the lower 
surface transformation function run from 0 to -it and the upper sur- 
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face function run from 0 to +n. The remaining problem associated 
with computing the second derivatives using the least-squares poly- 
nomial procedure was to determine the number of points to include 
adjacent to the coordinate point and the degree of the polynomial. 

To determine these two quantities, the coordinates of the well-known 
NACA 0012 airfoil were input and various values were tried for each 
quantity until a combination was found that produced the best agree- 
ment between the calculated and theoretical values of the second 
derivatives. The number of points adjacent to the coordinate point 
was found to be 3 before and 3 after for a total of 7 points, and 
the degree of the polynomial was found to be 4. The computer code 
for the piecewise least-squares polynomial smoothing procedure is 
contained in subroutine LSQSMO. 


Least-Squares Cubic Spline Smoothing of Second Derivative 
After completion of the least-squares polynomial smoothing proce- 
dure, the resultant values of y 4 ' are input to subroutine CSDS which 
was formulated based on a method that fits a smooth cubic spline 
through a set of input data in a least-squares manner. The metnod 
defines a continuous cubic spline function in the form 


3 2 

9(9)i = a i h i + b i h i + c i h i + d^ 


(14) 


where = (0 - 9J and i = 1, 2, 3, . . . , N-l. 


The coefficients a., b., c., and d. are computed such that 

ill l 


10 


2 


N 


2 

i=l 



( 15 ) 


and 



d 2 g/d0 



2 

d0 is a minimum 


(16) 


where the smoothing parameter S is in the interval (N - ^2N) _< S £ 

(N + /2N ) , N is the number of points, = y^" , and 5f^ is 

the allowable standard error deviation of fp A detailed descrip- 
tion of the least-squares cubic spline method is presented in refer- 
ence 5. After extensive application of the smoothing program to a 
wide range of airfoil shapes, the value of 10 -4 was selected for 
standard error deviation and a conservative value of N was chosen 
for the smoothing parameter S. 

Cubic-Spline to Compute New y-Coordinate. 

After obtaining the new smoothed second derivatives, the next 

step is to determine the corresponding smoothed y-coordlnate values 
that are also smooth and continuous in the interval between input 
points. The natural choice was a cubic spline which consists of 
defining the y coordinates between the interval end points with a 
third-order polynomial similar to equation (14) and solving for the 
coefficients so that the y coordinates and the first- and second- 
derivatives at the intersection with the adjacent interval are equal at 
each end. This ensures that the y coordinates, the slope, and the 
curvature are continuous and smooth. The cubic spline polynomial 
and its first- and second-derivatives are: 
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Yi = a ^ 3 + b ^ 2 + c L h L + d t 


y'j. = 3a i h i + 2b i h i + Ci , 


and y" . = 6a.h. + 2b. 

2 1 IX 1 


where h . = ( 0 - 0 . ) . 

l l 


At the two end points of the ith interval, the y coordinates 


Yi = d. 


at 0=0. and 
l 


3 2 

Y i+1 — a i b i b i b i c i b i d^ 
at 0 = 0^ + ^, an d the second derivatives are 


Yi = 2b i or b i = Yi. 


at 0 = 0 . and 

l 


y i+ l = 6a i h i + 2b i or a. = 


y i+l " y i 


at 0 = 0 


i+1. 


Combining equations (20) through (23) and simplifying. 




(24) 
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At 9 = 0£, y ^ equals and from the previous interval 


_ i 


y . = 3a. , hf . + 2b. h. + c. 

2 i l-l l-l l-l l-l l-J 


where from a similar analysis. 


_ tl _ll 


(n - yj-A 

\ 6 h i-i ) ' 


_ II 

_ y i-l 
* i— 1 " 2 


and 


II tl 


/ y i " y i-l\ / y i + 2y i-l\ h. 

) - \ — 5 7 1_ 


( 25 ) 


(26) 


(27) 


(28) 


By substituting equations (26), (27), and (28) into equation (25) 
and setting equation (24) equal to (25), the following simplified 
form of the cubic-spline equation is derived: 



which represents a set of tridiagonal equations with i = 2, 3, 

4, . ., N - 1. By specifying the desired y coordinates at the end 

points, the resultant N- by N-matrix equation can be solved with a 
simplified matrix inversion technique. The equations that define 
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the y coordinates and the first- and second-derivatives in each 
interval are 



where hi - ^ 0 i+i “ The computer code for this cubic 

spline method is contained in subroutine INVY in the airfoil 
smoothing program. 

The initial application of the cubic spline method with the 
lower and upper trailing-edge y coordinates input for i=l and N, 
produced airfoil shapes that did not generally pass through the nose 
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y coordinate computed during the previous least-squares smoothing 
step. This problem was partially overcome by first applying the 
cubic-spline method from the lower surface trailing edge to the nose 
and then from the nose to the upper surface trailing-edge coordi- 
nates. Although this procedure generated an airfoil shape that had 
the same y coordinate and second derivative at the nose when 
approaching from both the upper and lower surface, the first deriva- 
tives were not necessarily equal; therefore, the curvature was dis- 
continuous at the nose. This additional problem was overcome by 
adding a small constant increment to the input second derivatives 
which would generate first derivatives at the nose that were more 
closely matched. The increment produced the same effect as a con- 
stant of integration, resulting in a very small global stretching or 
shrinking of the y coordinates. The value of the increment is 
determined iteratively using a simple Newton-Raphson technique which 
is very stable and generally converges in less than four itera- 
tions. The computer code for this iteration procedure is contained 
in subroutine YNEW in the airfoil smoothing program. 

Camber and Thickness Distribution 
By defining the smoothed airfoil shape with a cubic-spline 

function, the y coordinate and its derivatives can be computed at 
any desired 0-value with equations (30) through (32). Because of 
this capability, it was therefore possible to develop a method to 
compute a camberline and a thickness distribution for the sinootned 
The equations for combining the camber and thickness dis- 
tributions to obtain the upper surface coordinates of an airfoil are 
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x u = x c - t/2 sin ( <J>) 


(33) 


and 

y u 

= y + t/2 cos (<J>) , 
c 

(34) 

and 

for 

the lower surfaces are 



x * 

= x + t/2 sin (<J>) 
c 

(35) 


y * 

= y - t/2 cos (<{>) 

C 

(36) 


where x c and y c are the coordinates of the camberline, t is the 
local thickness, and <(> is the local slope of the camberline. The 
airfoil generated with these equations will not be unique because a 
large number of other thickness and camber combining equations could 
be used to generate the same airfoil shape. However, given the 
shape of an airfoil, a unique camberline can be obtained which 
satisfies equations (33) through (36) by simply specifying that the 
absolute value of the slope at upper and lower points are equal in 
magnitude. The local slope is determined with respect to an axis 
system whose y— axis passes through the upper and lower surface 
points and whose x-axis passes through the mid-point of the line 
connecting the two points as illustrated in figure 2. 
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The equations for translating and rotating tne input 

A 

coordinates in the x- and y-axis system to the camberline x- and 

A 

y-axis system are 

x = (x - x c ) cos (<(>) + (y - y c ) sin (<}>), (37) 

y = (y - y c ) cos (<j>) - (x - x c ) sin (<j>). (38) 

The differentials with respect to x are 

dx/dx = cos (<)>) + sin ($) dy/dx (39) 

dy/dx = cos (4>) dy/dx - sin (4>) (40) 

which combines to obtain the equation for the local slope 

d y/ d x = d v/ d * = cos U) dy/dx - sin (<fr) , (41) 

dx/dx sin (<(>) dy/dx + cos ( <j> ) 

where for a given set of upper and lower surface input points, 



To determine the camberline simply requires that for either an upper 
or lower surface input point, an opposite surface point be located 
which satisfies the criteria that 



(43) 
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The computer code for the camberline technique is contained in 
subroutine CAMTK. The execution procedure in this subroutine starts 
the search for the camberline at the upper surface trailing edge and 
proceeds in a counterclockwise direction toward the nose of the air- 
foil. A simply linear interpolation procedure is used to locate the 
corresponding lower surface point which satisfies the camberline 
criteria. The search for the lower surface point is performed with 
an interpolation interval of l/2000th of the chord. After locating 
the lower surface point, execution continues to the next upper 
surface point and the search for the lower surface point begins at the 
previously located point. This cycle continues until all of the 
upper surface points have been used. The leading-edge point of the 
camberline (where thickness equals zero) is computed by fitting a 
second-order polynomial to the three previous camberline points in 
the nose region and then extrapolating to determine the intersection 
of the camberline with the input airfoil contour. The only note- 
worthy problem that has occurred with the use of this technique has 
been difficulty locating the first few camberline coordinates for 
a i r f°ils with reflexed (upward- turned) camberlines near the trailing 
edge. This problem can generally be overcome by simply reversing 
the input order of the upper and lower surface coordinates to the 
smoothing program which means that the search for the camberline 
will be reversed proceeding clockwise along the lower surface from 
the trailing edge to the nose. 

DESCRIPTION OF COMPUTER PROGRAM 

The airfoil smoothing computer program AFSMO consists of a main 
program, fifteen subroutines, and two function subprograms and is 
listed in Appendix A. The airfoil scaling computer program AFSCL 
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consists o£ a main program and two subroutines and is listed in 
Appendix B. A description of the input data requirements for the 
airfoil smoothing program is presented in Appendix C and a cor- 
responding description of the output for a sample case presented in 
Appendix D. Likewise, a description of the input data requirements 
for the airfoil scaling program is presented in Appendix E and the 
description of the output in Appendix F. The primary input and out- 
put quantities and execution sequence of each main program and sub- 
routine are described in this section. 

Program AIRSMO 

The primary function of the main program AIRSMO is to control 

the overall execution of the airfoil smoothing process. After 
specifying and computing several global program constants, calls are 

made to subroutines PSEUDO and LEROY to initialize the plot vector 
file SAVPLT for subsequent postprocess plotting on a variety of 
plotters at Langley. The subroutine INPUT is then called which 
reads and prepares the user-supplied input data. The subroutine 
SMOXY is then called which smooths the input airfoil coordinates. 

If punched output data are desired by the user, subroutine PCARD is 
then called. All punched data are written on output file TAPE1 
which can be disposed of in any manner the user desires. 

If plots of the coordinates, first and second derivatives, and 

curvature of the smoothed airfoil are desired, calls are then made 
to subroutine PLOTAF and PLOTCK. If the user also desires to com- 
pute the camber and thickness distribution of the smoothed airfoil, 
subroutine CAMTK is then called. Then, if the user desires to 
interpolate additional smoothed airfoil coordinates, subroutine INTP 
is called. This entire execution procedure is repeated until all 
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input cases have been input and smoothed. A call is then made to 
subroutine CALPLT to finalize the plot vector file. 

The following arrays must be dimensioned and constants defined 
or checked in this program; 

TITLE 80-column title for input case 

XINT array containing x interpolation values 


X,Y 

W 

YSMO 

YPS 

YPPS 

THETA 

PI 

RAD 

CONS 

JREAD 

JWRITE 

IPRINT 


EPS 


DF 


arrays containing reordered x and y coordinates 
array containing input weighing factors 

array containing smoothed y coordinates 

— • 

array containing smoothed y values 

II 

array containing smoothed y values 
array containing ©-transformation values 
value of tt 

value of one radian it/180 

value of constant K defined by equation (4) 
number of tape or file containing input data 
number of tape or file containing output data 
if equal to zero, the smoothing data generated during 
each iteration of the least-squares polynomial 
smoothing process in subroutine SMOXY and the inter- 
polated data in PLOTAF and PLOTCK will be output 
convergence criteria used during least-squares poly- 
nomial smoothing process in subroutine SMOXY 
standard deviation used during least-squares cubic 
spline smoothing process in subroutines SMOXY and CSDS 
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IERR 


if a nonzero value appears following a call to sub- 
routine INPUT, it indicates that another case follows 
and if it appears following a call to subroutine 
SMOXY, an error has occurred 


Subroutine INTER 

Subroutine INTER is a utility subprogram used to interpolate a 
y-value at a given x-value from an input table of x- and y-values. 
The interpolation can be performed using either a linear (straight 
line) ora weighted quadratic-equation fit of the y-values in the 
interpolation interval. The only restrictions are that the input 
table of x-values be single-valued and monotonically increasing or 
decreasing and that, for the weighted quadratic-equation fit, the 
input table of x-values contain at least four values. The initial 
execution step in this subroutine is a search to determine the 
x-interval containing the desired interpolation x-value (x^_^ .1 x 
< x ) • For the weighted quadratic-equation method, three y-values 

are interpolated: 

(1) y s by fitting a straight line between and x t/ 

(2) y 1 by fitting a quadratic equation between x^_ 2 , x^_^, and 
x i , and 

(3) y 2 by fitting a quadratic equation between x^_^, x^, and 
x i+l* 


The deviations between the quadratic-equation and straight-line 
interpolated y-values are 


e i = I yi - y s J 


and 


= /y 2 - y 3 | 


(44) 


The final interpolated y-value is obtained by linear weighting of 
the two deviations so that 


y = Wl y 2 + w 2yi 


(45) 
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where 


w, = = 

1 Ai + A-> 


and 


W 2 = 


Ai + A 2 


A 1 = G 1 (X ” X i-1 ) and A 2 = e 2 ^ x i“ x ^* 


( 46 ) 

( 47 ) 


For the linear interpolation method, the interpolated y-value is 
simply equal to y s * 

The following is a description of the parameters in the argu- 
ment list for this subroutine: 


XINT 

YINT 

N 

X and Y 
JSTART 


input interpolation x-value 

output interpolated y-value 

number of values in input x and y arrays 

arrays containing input x- and y-values 

array index to begin search for interval containing 

XINT 


array index of x-interval containing XINT 
if equal to 0, the weighted quadratic-equation method 
is used, and, if equal to 1, the linear method is 
used 

In the airfoil smoothing program, subroutine INTER is called by 
subroutine BADPT which checks for bad input airfoil coordinates and 

by subroutine SMOXY during the search for inflection points in the 
final smoothed airfoil contour. 


JEND 

ICD 


Subroutine INPUT 

The primary functions of subroutine INPUT are to read and print 
the input airfoil data and to prepare the input data in the proper 
format for input to the smoothing program. A detailed description 
of the required input airfoil data and the various options available 
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for plotting and punching the output data is presented in the user- 
guide given in Appendix C. After reading the input data from the 
file JREAD and writing on output file JWRITE and if desired, the 
next execution step is to call subroutine BADPT to check the upper 
and lower surface coordinates for obvious bad points. If no errors 
occur during the check for bad points and again if desired, sub- 
routine TRNSRT is called to translate and rotate the input airfoil 
to an axis system coincident with the longest chord of the airfoil. 

The next execution step is to reorder the input coordinates, 
which are input from the leading edge to the trailing edge for each 
surface, from the lower surface trailing edge clockwise around the 
airfoil to the upper surface trailing edge. The reordered coordi- 
nates are also nondimens ionalized by the chord length and, at the 

same time, the equivalent transformation 9-values computed using 

equations (10) and (11). If, instead of x and y coordinates, the 

coordinates, y' values, or y" values as a function of 9 are input, 

the equivalent x values are computed using equations (3) and (5). 


The following input quantities are defined in this subroutine: 


ITER 
I PLOT 
IPUNCH 
IOP 

ICAMTK 

INTR 

IBAD 

ITRN 

YLTE , YNOSE, YUTE 


allowable number of smoothing iterations 

plotting option 

punch output option 

input airfoil coordinate option 

camber and thickness distribution option 

interpolation option 

bad coordinate check option 
translation and rotation option 
input desired y coordinates at the lower 
surface trailing edge, the nose, and the 
upper surface trailing edge, respectively 
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NINT 


CNEW 

NP 

NOSE 

CHORD 

IERR 

TITLE 

X 

Y 


number of input interpolation x values 
desired chord of interpolated y coordinates (all y 
coordinates computed in subroutines INTP are 
multiplied by CNEW) 

number of elements in output arrays X, Y, W, THETA, 
YPS , and YPPS 

array index of nose point after reordering the 
coordinate 

computed longest chord length 

if not equal to zero, the last input case has been 
read or an error occurred during the calls to 
subroutine IBAD 
input 8U-column title 

output array containing reordered x coordinates 
output array containing reordered y coordinates for 
IOP=U or 1 


W output array containing reordered weighing factors 

THETA output array containing equivalent e values 

output array containing y' values for IOP=2 
YPPS output array containing y" values for IOP=3 

The following arrays and constants are used internally in this 
subroutine: 


array containing input lower surface x coordinates if 
IOP=0 and e-values if IOP=0. 

array containing input lower surface y coordinate if 
IOP=0, y coordinates if I0P=1, y' values if I0P=2, and 
y" if I0P=3 

array containing input lower surface weighting factors 
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XU, YU,WU 


NL 

NU 

ITRMAX 

TOLR 


NMAX 


same as XL, YL, and WL except for upper surface 
number of elements in XL, YL, and WL arrays 
number of elements in XU, YU, and WU arrays 
maximum number of allowable smoothing iterations 
allowable deviation between input and interpolated y 
coordinate in subroutine BADPT 
maximum number of NU or NL values 


Subroutine TRNSRT 

The function of subroutine TRNSRT is to translate and rotate 

the input airfoil coordinates to an axis system coincident with the 

longest chord. The longest chord is defined as the distance from 

the trailing-edge bisector to the farthest input coordinate in the 

nose region of the airfoil. The translation and rotation equations 

are identical to equations (37) and (38) where x~ and y are the 

c c 

nose coordinates and <J> is the angle between the longest chord and 
the input x— axis. After the input coordinates have been translated 
and rotated, the input coordinate and weighing factor arrays are 
reloaded with the newly defined transformed values. The following 
parameters are used internally in this subroutine: 

ANGLE computed angle of longest chord and input x-axis 

XNOSE, YNOSE computed nose coordinate of longest chord 
XTE, YTE computed coordinates of trailing-edge bisector of 
longest chord 


Subroutine BADPT 

The function of subroutine BADPT is to identify and possibly to 
correct input y coordinates whose corresponding interpolated values 
exceeds a specified tolerance. The user may execute a call to this 
subroutine by specifying a nonzero value for the parameter IBAD in 
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subroutine INPUT; however, the call should be made only if the user 
has a concern about possible bad points or excessive waviness in the 
input coordinates. Following entry to this subroutine the 0 equiva- 
lent of each input x coordinate is computed for use during the 

interpolation process. Then for each input y coordinate, a corre- 
sponding interpolated value is obtained using the weighted 
quadratic-equation method of subroutine INTER with input arrays 
loaded with the remaining y coordinates and 9 values. (Note that 
the input y coordinate itself is not loaded.) If the deviation 
between the input and interpolated y coordinate exceeds a specified 
tolerance, the interpolated y coordinate is flagged as being out-of- 
tolerance, the interpolated value substituted, and then execution 
continues to the next point. If, however, during this interpolation 
process, two consecutive points are found to be out— of —tolerance, an 
error flag is set which will terminate the execution of the par- 
ticular input case. The following additional parameters are used in 
this subroutine: 

input arrays containing either upper or lower surface 
x and y coordinates 

if equal to 1, indicates upper surface coordinates 
input, and, if equal to 2, lower surface 
work array containing all 0 values except value at 
desired interpolation point 

work array containing all y coordinates except value at 
the desired interpolation point 

temporary array containing interpolated y coordinates 
if output with a nonzero value, two adjacent points are 


X,Y 
I SURF 


TI 


YI 


YN 

IERR 


out-of- tolerance 



Subroutine SMOXY 


The primary function of subroutine SMOXY is to perform the 
iterative smoothing process and is, therefore, the most important 
subroutine in the entire airfoil smoothing program. The basic 
inputs to this subroutine are the initial x and y coordinates, 
either y' or y", the transformed 0 values, weighting factors for 
each input point, and the input option parameter IOP which specifies 
the type of input data. If either y' or y" are input instead of the 
y coordinates, the desired trailing edge and nose y coordinates must 
also be input. 

After entry to the subroutine, the input option parameter is 
checked to determine the type of input data. If the first deriva- 
tives y' are input (IOP = 2), two sets of second derivatives y" are 
computed. One set is computed using the least— squares polynomial 
smoothing method (subroutine LSQSMO) and the second set, using the 
least-squares cubic-spline method (subroutine CSDS). Each set of 
second derivatives and the desired trailing-edge and nose y coordi- 
nates are then input to subroutine YNEW which computes a correspond- 
ing set of y coordinates. These y coordinates and their correspond- 
ing second derivatives are then used to compute a new set of first 
derivatives using the spline equation (31). The y coordinates and 
the sum-of-the-squares of the difference between the original input 
and computed first derivatives are then computed for each set and 
the set with the smallest sum is chosen for subsequent smoothing. 

If the second derivatives y" and the desired trailing-edge and 
nose y coordinates are input (I0P=3), a corresponding set of y 
coordinates are computed with subroutine YNEW and a set of first 
derivatives computed with spline equation (31). Then, regardless of 
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the input option, program execution proceeds to the iterative 
smoothing process. Prior to the start of this iteration cycle, a 
search is made of the upper and lower surface y coordinates to 
determine the maximum upper surface and minimum lower surface 
values. During each smoothing cycle, these two coordinates are 
heavily weighted in an attempt to insure that the maximum thickness 
of the final smoothed airfoil is reasonably close to that of the 
original input airfoil. 

As discussed in the method section of this report, the initial 
step in the smoothing process is to determine the smoothed second 
derivatives of the input y coordinates using an iterative piecewise 
leas t— squares polynomial smoothing method. During this iteration 
process, each call to subroutine LSQSMO produces a new set of y 
coordinates and their corresponding first and second derivatives. 

The next step in the iteration process is to compute the sum-of-the- 
squares of the difference between the current and previous set of 
second derivatives and then to check the sum to insure that the cur- 
rent value is less than the previous value. This will determine 

whether or not the iteration process is converging. If the process 
is diverging, the iteration cycle is terminated, an appropriate 

error message printed, and execution proceeds to the next step. If 

the process is converging, the next iteration input y coordinates 
for subroutine LSQSMO are computed using the following weighting 
procedure : 
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f 


then 



is used, where i is the iteration number, I indicates input value, 
and N indicates new value computed by LSQSMO. After computing the 
new weighted coordinates, the sum-of-the-squares difference of the 
second derivatives is checked to see if it is less than the speci- 
fied convergence value EPS. However, if the value of the difference 
sum is greater than the convergence value, the iteration cycle is 
repeated. If the value has converged or the iteration cycle begins 
to diverge, program execution proceeds to the next step which is to 
smooth the second derivatives one additional time using the least- 
squares cubic-spline method of subroutine CSDS. The additionally 
smoothed second derivatives and the final trailing-edge and nose y 
coordinate from the piecewise least-square polynomial smoothing pro- 
cess are then input to subroutine YNEW which computes a correspond- 
ing final set of smoothed y coordinates. 

The final smoothed coordinates are then checked for relative 
smoothness by another call to LSQSMO with all the coordinate weight- 
ing factors set equal to 1.0. The next execution step is to compute 
a corresponding set of final smoothed first derivatives using spline 
equation (31). Then the final smoothed first and second derivatives 
with respect to x and the curvature are computed and printed in 
addition to the original input and final smoothed coordinates and 
the final smoothed first and second derivatives y' and y" . 
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Following the detailed printout step, a check is made for 
negative thickness or crossover between the upper and lower surface 
near the trailing edge of the airfoil. During the least-squares 
polynomial smoothing process, the input weighting for the trail ing- 
edge coordinates are multiplied by a factor of 7 to help ensure that 
the final smoothed airfoil has the same trailing-edge thickness as 
the original input airfoil. In spite of this additional weighting, 
the final smoothed airfoil will often have negative trailing-edge 
thickness; especially if tne input airfoil has zero or a very small 
trailing-edge thickness. If a crossover is discovered during this 
step, an error message is printed, an error flag set, and execution 
returned to the calling program. 

If no crossover is discovered, the next and final step is to 
determine the location of all inflection points (i.e. y' = 0) in the 
final smoothed airfoil. This step is accomplished by checking each 
0-interval of the final airfoil for 0 locations where the first 
derivative spline equation (31) is equal to zero. This equation can 
be written as the quadratic equation 

aQ 2 + b0 + c = 0 (51) 

with 
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where h^ = 0^+1 ” ©i* The real solutions to this equation 
which lie within the 0-interval are the inflection points. All 
inflection point locations and the results of the final smoothness 
check are then printed and control returned to the calling program. 

A description of the parameters in the argument list for this 
subroutine is presented in the description of program AIRSMO and the 
subroutine INPUT. The following parameters are used internally: 

WT multiplier for weighting of maximum thickness 

coordinates 

YPP and YPPU work arrays containing current values of y" 

YUSMO and YN work arrays containing current values of y 

WK f A, and DUM internal work arrays 

SUMY array containing sum-of-squares differences from 

least-squares polynomial smoothing process 
JMAXL and JMAXU array index values for the minimum lower surface 

y and for the maximum upper surface y, respectively 
GP and GPP dx/d9 and d 2 x/d0 2 

DYDX and DY2DX dy/dx and d 2 y/dx 2 

CURV curvature k 

RLE leading-edge radius (1/k at nose) 

Subroutine YNEW 

The primary function of subroutine YNEW is to control the 
iterative procedure that computes a set of new y coordinates from an 
input set of second derivatives and desired trailing edge and nose 
coordinates. The new set of coordinates can be computed using two 
different solution approaches. For the first approach (IPT = 0), 
the resultant simultaneous cubic-spline equations solved are 
generated using the combined upper and lower surface 
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second derivatives and settinq the end conditions equal to 
the leading- and trailing-edge coordinates. The value of the first 
derivative at the nose will, of course, be the same whether 
approached from either the upper or lower surface; however, the 
y-coordinate at the nose may differ from the desired input value. 
The desired input nose coordinate can be obtained by adding a small 
constant incremental value to the input second derivatives. This 
small value acts the same as a constant of integration resulting in 
a small stretching or shrinking of the computed y coordinates. The 

incremental value is determined in this subroutine using the simple 
iterative Newton— Raphson equation 

f( Ax.) 

AX i+l = Ax i ~ FTaTTT (53) 

where Ax represents the incremental value, f(Ax) the difference 
between the desired and computed nose coordinates, f'(Ax) the slope 
of the difference curve (determined using simple differencing) , and 
i the iteration number. 

For the second approach (IPT = 1), the resultant simultaneous 
cubic-spline equations solved are generated in a piecewise manner 
first using the lower surface second derivatives and setting the end 
conditions equal to the trailing-edge and nose coordinates, and then 
using the corresponding quantitites for the upper surface. This 

approach ensures, of course, that the resultant airfoil will have 
the desired nose coordinate; however, the slope at the nose may 

differ when approached from the upper and lower surfaces. Here 
again, like the first approach, a better match can be obtained by 
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adding a small incremental value to the input second derivatives. 
This increment is determined using the same iterative Newton-Raphson 
equation as that used for the first approach except the Ax repre- 
sents the difference between upper and lower surface first deriva- 
tives at the nose. Both approaches should theoretically produce the 
same incremental values; however, experience has shown that the 
convergence of the second approach is generally quicker and more 
stable. 

The following additional parameters are used internally in this 
subroutine : 

DUM and WK internal work arrays 

DELTA incremental value added to second derivatives 

Subroutine INVY 

The function of this subroutine is to compute a set of y 
coordinates from an input set of second derivatives and desired y 
coordinates at the start and end of the set. The input second 
derivatives and transformation 9-values are used to compute a matrix 
of simultaneous equations using the cubic-spline equation (29). The 
resultant matrix is tridiagonal with two less equations than 
unknowns and relates the second derivatives y" and the corresponding 
y coordinates. The two remaining unknowns are specified as the 
desired y coordinates at the start and end of the set. The solution 
of the resultant matrix is greatly simplified because only the 
diagonal elements d^ and the two adjacent elements e^ and f^ 

differ from zero. Using the Crout reduction method described in 
reference 6, the solution becomes a simple back substitution 

Y N = c N for i=N 
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£ i *i+l 


for i 


N— 1 , N-2 , . 


1 


(54) 


and y ^ - 

where 


d i = d i - e i £ i-i 
fi = fi/Sj. 


and 


c i - e i c i-i 
d i 


The tridiagonal terms from equation (29) are 


e . 

i 

■ 1/h i-r 

d . 

= -l/h. 

l 

l“l 

f . 

= l/h. 

l 

i 

/ h i-i\ 

i ~ 

[ 6 j y 


!=(-¥) ? "i-i + ( — 3 - ) y"i + f§ ) ?" i+i 


At the ends the coefficient terms are 

d l = 1 ' f i = 0, 


and 


e N 0/ d N “ 1 ' C N " y N * 


(55) 


(56) 


(57) 
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The following is a description of the parameters in argument 


list for this subroutine: 


X 

input 

array containing 

YPP 

input 

array containing 

NS 

index 

of start element 

NE 

index 

of end element 


0 values 
y" values 


Y 

YSTART 

YEND 

A 


output array containing y coordinates 

desired y coordinate at start 

desired y coordinate at end 
internal work array 


Subroutine LSQSMO 

The function of this subroutine is to smooth and compute the 
second derivatives of an input set of y coordinates using the piece- 
wise least-squares polynomial method described in the previous meth- 
od section. The subroutine smooths each coordinate by fitting a 
least-squares polynomial of the 4th degree through the input coordi- 
nate and six adjacent coordinates. If possible, the six coordinates 
used are the three coordinates just prior to and the three just 
after the input coordinate; otherwise, six consecutive coordinates 
are used. Prior to the execution of the smoothing process, a check 
is made of the three corresponding upper and lower surface coordi- 
nates adjacent to the nose coordinate to determine whether or not 
the input airfoil is symmetric about the 0-axis in the nose region. 
If the airfoil is symmetric in the nose, the smoothing process is 

performed in the clockwise direction for the upper surface and 
counterclockwise for the lower surface; otherwise, it is performed 
clockwise for both surfaces. 
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During the smoothing process, each coordinate is given the 
specified input weighting factor and the six adjacent coordinates 
are given a weighting of 1.0. The maximum and minimum thickness 
coordinates are also given an additional weighting equal to the 
parameter WT times the input value. In a similar manner, the upper 
and lower surface trail ing-edge coordinates are given an additional 
weighting of 7 times the input value. After computing the coeffi- 
cients of the leas t— squares polynomial for each coordinate, a new 
y— coordinate value, the first—, and the second— derivatives are 
computed using equation (17), (18), and (19), respectively. 

The following is a description of the parameters in the argu- 
ment list and the internally used arrays and constants: 
x input array of o values 


input array of y values 

input array of weighting factors 


YN 

YP 

YPP 

N 

IMAX and JMAX 


NOSE 

WT 


output array of smoothed y coordinates 

output array of first derivatives y' 

output array of second derivatives y" 
number of input coordinates 

array index of maximum and minimum thickness 
coordinates 

array index of nose coordinate 
additional weighting factor for maximum and 
minimum thickness coordinate 
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EPS 


allowable deviation between corresponding upper and 
lower surface 6 and y values in the nose region 
XSYM if equal to zero, input airfoil is symmetric 

in nose region 

XI, YI, WI arrays containing 7 consecutive values of 0, 

y, and w 

A array containing elements of symmetric least-squares 

matrix 

B array containing coefficients of resultant 4th order 

least-squares polynomial 

Subroutine CSDS 

The function of subroutine CSDS is to fit a least-squares cubic 
spline through a set of input 0 values and either the y coordinates 
or the second derivative y". A very detailed description of theory 
and computer coding associated with this subroutine is presented in 
reference 5 and, therefore, will not be presented in this report. 
This subroutine is also a part of the standard math-1 ibrary subpro- 
gram package on the Langley CDC computer system and is identified by 
the same call name and parameter list. A complete description of 
the input and output parameters are presented at the beginning of 
the listing of the subroutine in Appendix A. 

Subroutine PCARD 

The function of subroutine PCARD is to write the final smoothed 
data on an output file (TAPEl) for postprocess disposal to a desired 
output device. The case title is written on the output file ini- 
tially and is followed by a card image containing the value of the 
input option (IOP parameter) corresponding to the output option 
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(IPUNCH parameter). Then for the upper and lower surface, the 
number of coordinates is written on the output file followed by one 
of four types of smoothed output data as specified by the value of 

the output option parameter IPUNCH. The four types of output data 
are as follows: 

IPUNCH = 1 x-coordinate, smoothed y-coordinate, and weighting 

IPUNCH = 2 6-value, smoothed y coordinates, and weighting 

IPUNCH = 3 0-value, smoothed y' , and weighting 

IPUNCH = 4 0— value, smoothed y" , and weighting 

If IPUNCH equals 3 or 4, the y coordinates of the lower surface 
trailing edge, the nose, and the upper surface trailing edge are 

also written on the output file. All data are written on the output 
file in a format suitable for input to the airfoil smoothing pro- 
gram. Except for the IPUNCH parameter, all other parameters in the 

argument list are fully defined in the description of subroutine 
INPUT. 


Subroutine PLOTAF 

The function of subroutine PLOTAF is to plot the input and 
smoothed y coordinates, smoothed y', and smoothed y" versus the 0 
values (IPL0T=1) and to plot the input and smoothed y coordinates 
versus the input x coordinates (IPL0T=2). All plots are scaled for 
postprocess plotting on the Langley 33-inch CALCOMP drum plotters. 
The called subroutines CALPLT, NOTATE, AXES, PNTPLT, LINE, and 
NFRAME are all part of the Langley plotting subroutine 
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package and are available by attaching the CALCOMP direct-access 
library file. Prior to plotting the smoothed y and x coordinates 
and the smoothed y' values, additional values are interpolated at 
each degree of 0 from -180 to +180 degrees. The ordinate axes are 
automatically scaled to insure that all input values will be 
plotted. A sample of the two types of plots generated by this 
subroutine is presented in figure 3 for IPLOT=l and in figure 4 for 
IPLOT=2 . Except for the IPLOT parameter, all other input parameters 
are fully defined in the description of subroutine INPUT. 

Subroutine PLOTCK 

The function of subroutine PLOTCK is to plot the square root of 
the local smoothed curvature versus the 0-transformation value 
(IPLOT=3). Prior to plotting the curvature, additional values are 
interpolated at each one-half degree of 0 from -180 to +180 
degrees. By plotting the square root of the curvature rather than 
just the curvature, the very large curvature peaks in the 
nose region of the airfoil are reduced and the normally low 
curvatures in the trailing-edge regions are increased and, as a 
result, a more evenly proportioned plot is generated. A sample of 
the type of plot generated by this subroutine is presented in figure 
5. All input argument parameters are fully defined in the descrip- 
tion of subroutine INPUT. 


Subroutine CAMTK 

The function of subroutine CAMTK is to compute the camber and 
thickness distribution of the final smoothed airfoil. A detailed 
explanation of the method used to compute the camberline is pre- 
sented in the method section of this report. The first execution 
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step in the subroutine is to load the x and y coordinates and y 
values into separate arrays for the upper and lower surfaces from 
the nose to the trailing edge. The first derivatives dy/dx are then 
computed at each input point on the upper surface. 

The next execution step is the search for the camberline. As 
previously stated in the method section, the search begins at the 
upper surface trailing— edge point and proceeds counterclockwise 
along the upper surface to the nose point. At each upper surface 
point, a simple linear interpolation procedure is used to locate the 
corresponding lower surface point that satisfies the camberline 
criteria- of equal magnitudes of the local upper and lower surface 
slopes with respect to an axis system aligned with the local 
camberline. The search for the lower surface point is performed 
with an interpolation interval of l/2000th of the chord. After 
locating the lower surface point, execution continues to the next 
upper surface point and the search begins on the lower surface at 

the previously located point and proceeds clockwise toward the nose 
point . 

After completing the camberline search for each point on the 
upper surface, the next execution step is to locate the intersection 
of the camberline with the airfoil leading edge which is the loca- 
tion of zero thickness. This intersection is found by fitting a 
second-order polynomial to the previous three camberline coordinates 
and then extrapolating to find the intersection with the nose region 
which is defined with cubic— spline functions. The upper surface 
coordinates, corresponding lower surface coordinates, camberline 
coordinates , thickness, and slope of-, the camberline are printed at 
each step during the search for the camberline and the nose inter- 


40 



section points. An error term is also printed for each point and 
represents the absolute value of the difference between the local 
slopes of the upper and lower surface camberline search points with 
respect to the local camberline-axis system. 

The next execution step is to write the camber and thickness 
distribution data on an output file (TAPEl) for possible input to 
the airfoil scaling program AFSCL. This execution step is activated 
only if the value of the IPUNCH input parameter equals 5. The final 
execution step, if the value of the input KPLOT parameter is nonzero 
(IPLOT = 4, 8, 9, or 10), is to plot the camber and thickness dis- 
tribution data. A sample of the type of plot generated is presented 
in figure 6. The camberline coordinates are plotted at the bottom 
part of the figure, the half-thickness distribution at the center, 

and the upper and lower surface search points at the top part of the 
figure. 


A description of the parameters in the argument list for this 
subroutine is presented in the description of program AIRSMO and 
subroutine INPUT. The following parameters are used internally: 

TU and TL temporary arrays containing input upper and lower 

surface 0-values from nose to trailing-edge points. 
YU and YL temporary arrays containing input upper and lower 


YPPU and YPPL 


DYXU 


surface smoothed 
temporary arrays 

_ II 

surface y values 
array containing 


y coordinates 
containing input 

dy/dx values for 


upper and lower 


upper surface 
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XI..S and YUS 


arrays containing x and y coordinates of lower 
surface caiuberline search points 

array containing value of slope of camberline 


TH 

XC and YC 

TK 
NM 

NT 

DU and DL 

Subroutine INTP 

The function of subroutine INTP is to interpolate additional 
smoothed airfoil coordinates. This subroutine is called if the user 
specifies a value of 1 or 2 for the parameter INTR read by subrou- 
tine INPUT. If the value of INTR equals 1, the interpolation is 
is performed at a standard set of 57 x values loaded internally in 
the subroutine and defined as follows: 

x = 0.0, 0.00025, 0.0005, 0.00075, 0.001, 0.0015, 0.002, 

0.0025, 0.005, 0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 


0.09, 

0.1, 0 

.125, 0 

.15, 

0.175, 

0.2, 0 

.225, 0.25, 

0. 

275, 

0.3, 

0.325, 

0.35, 

0.375, 

0.4, 

0.425, 

** 

in 

• 

o 

0.475, 0.5, 

0 

.525, 

0.55, 

0.575, 

0.6, 

0.625, 

0.65, 

0.675, 

0.7, 

0.725, 0.75, 

0 

.775, 

0.8, 

0.825, 

O 

• 

CD 

0.875, 

0.9, 

0.925, 

0.95, 

0.97, 0.98, 

0 

.99, 

1.0. 


arrays containing x and y coordinates of 

C G 

camberl ine 

array containing the half- thickness values 

number of interpolated points allowed on the lower 

surface 

number of camberline coordinates 

slope of the upper and lower surface search points 
with respect to the local camberline axis system 
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I£ the vuLuo of INTR equals 2, the desired x values are input by the 
user and may include up to 100 values as specified by the parameter 

N1N1. L’he interpolation is performed for the upper and then the 
lower surfaces using the cubic-spline equations (30), (31), and 

(32). The derivatives dy/dx and d^y/dx^ and the curvature are also 

computed and printed for each x value. The user must also input a 
value for the parameter CNEW which is the desired value of the 

chord. The x and y interpolated coordinates are multiplied by CNEW 
and printed as x and y coordinates. If the value of the parameter 
IPUNCH equals 6, the interpolated x and y coordinates are written 
on the output file (TAPEl ) for postprocess disposal to a desired 
output device. A description of the parameters in the argument list 
for this subroutine is presented in the description of program 
AIRSMO and subroutine INPUT. 

Subroutine COORD 

The function of subroutine COORD is to interpolate a value for 

for y, dy/dx, d y/dx , and the curvature at a specified value of 0 
using the cubic-spline equations (30), (31), and (32). The 

following subroutine constants are used internally; 


TI 

input 0 value 

YI 

interpolated 

y-coordinate 

DYDX 

interpolated 

first derivative dy/dx 

DY2DX 

interpolated 

2- - 

second derivative d y/dx 

CURV 

interpolated 

curvature 


43 


Function Subprograms SINH and COSH 
The function of these two function subprograms is to compute 
the hyperbolic sine and cosine in terms of the exponential func- 
tion. The relationships are 

x -x 

sinh(x) = - — ^ - — (58) 

x -x 

and cosh(x) = — — ^ — , (59) 

respectively. 


Program SCALE 

The primary function of program SCALE is to read the input data 
and control the execution of the airfoil scaling process. The cam- 
ber and thickness distribution data input to this program are gener- 
ated by the subroutine CAMTK in the airfoil smoothing program 
AFSMO. After specifying and computing several global program 
constants, the first execution step is to read the input data. A 
detailed description of the input data and the required formats are 
discussed in the user-guide presented in Appendix E. After reading 
the input data, calls are made to subroutines PSEUDO and LEROY to 
initialize the plot vector file SAVPLT for suosequent postprocess 
plotting on a variety of plotters at Langley. The input x c coor- 
dinates of the input camberline are then checked to insure mono- 
tonically increasing order. The equivalent 0 value for each camber- 
line x c coordinate is then computed. 

The next execution step is to compute the x c location and the 
magnitude of the maximum value of the input half-thickness distribu- 
tion. A cubic spline is fit through the input thickness data and 
then all locations and corresponding thickness values where the 
first derivative of the spline function equals zero are computed 
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using equations (51) and (52). The location of the maximum value is 
then determined and printed on the output file. If the value of the 
input parameter IOP equals 1, the slope of the camberline coordi- 
nates are then computed using spline equation (31). The angular 
value of the slope is then obtained by computing the arctangent of 
the value of the first derivative. 

The next step is to call the scaling subroutine SCTK to gener- 
ate first the coordinates of the airfoil with the input maximum 
thickness-chord ratio and then the coordinates of the airfoil with 
each of the desired scaled maximum thickness-chord ratios. The 

final execution step is to call subroutine CALPLT to finalize the 
plot-vector file SAVPLT. 

The following arrays must be dimensioned and constants defined 
in this program: 

XC and YC 

TK 

TH 

THETA 
YPP 


TKNEW 

TITLE 

VAR and WK 
JWRITE 


arrays containing input x c and y c coordinates of 
the camberline 

array containing input half-thickness distribution 
t/ c/2 

array containing input camberline slopes $ 

array containing computed 0 values 

array containing computed second derivatives 



array containing input values of desired maximum 
thickness-chord ratios 
80-column title for input case 
work arrays 

number of tape or file containing output data 
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JREAD 

NTMAX 

PI 

RAD 

CONS 

NT 

IOP 

I PLOT 

IPUNCH 

LT 

TKMAX 

DELTA 

IERR 


number of tape or file containing input data 
maximum number of allowable elements in TKNEW 
array 

value of ir 

value of one radian 180 /tt 

value of constant K defined by equation (4) 
number of elements in XC, YC, TK, and TH arrays 
camberline slope option 
plotting option 
punch output option 

number of desired input maximum thickness values 
value of the maximum thickness-chord ratio of the 
input thickness distribution 
x c location of TKMAX 

if nonzero, error occurred during generation of 
scaled airfoil in subroutine SCTK 


Subroutine SCTK 

The function of subroutine SCTK is to scale the coordinates of 
an input airfoil from the input maximum thickness-chord ratio to a 
new desired maximum thickness-chord ratio. The first execution step 
is to generate the coordinates of the baseline airfoil by combining 
the input camber and the scaled thickness distributions using 
equation (33) and (34) for the upper surface and equations (35) and 
(36) for the lower surface. Each scaled thickness distribution is 
obtained by multiplying the input thickness distribution by the 
ratio of the desired- to- input maximum thickness -chord ratio. This 
procedure is simple; however, several problems may occur which 
require special handling. 
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If the value of the input camber distribution is nonzero in the 
trailing-edge region, the airfoil generated may not have either an 
upper or lower surface y coordinate at the trailing-edge location 
where x equals 1.0. To eliminate this problem, a second-order poly- 
nomial is fit to the last three computed coordinates near the trail- 
ing edge on each surface and a new y coordinate either extrapolated 
or interpolated at x equals 1.0. Also, if the camber distribution 
is nonzero in the nose region, the airfoil generated may have x 
coordinates that are less than 0.0. This problem is eliminated by 
translating and stretching or shrinking the coordinates of the air- 
foil so that the nose of the adjusted airfoil is at x equals 0.0 and 
the trailing edge at x equals 1.0. The only other problem that may 
occur is the possible generation of either upper or lower surface x 
coordinates that are not monotonically increasing from nose to 
trailing edge. This particular problem cannot be eliminated; there- 
fore, a check is made to see if it occurred and, if so, an error 
message is printed, an error flag set, and execution returned to 
program SCALE. 

The upper and lower surface x and y coordinates are multiplied 
by the value of the parameter CNEW and then loaded into separate 
arrays from the nose to the trailing edge. The coordinates, input 
camber distribution, and scaled thickness distributions are then 
printed. If the IPUNCH parameter is nonzero, the scaled airfoil 
coordinates are then written on the output file TAPEl in a format 

suitable for input to the smoothing program. If the IPLOT parameter 
is nonzero, the next and final execution step is to plot the scaled 
airfoil and its corresponding camber and thickness distributions as 
illustrated in figure 7. A description of the parameters in the 
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argument list for this subroutine is presented in the description of 
program SCALE. 


Subroutine CUBSPL 

The function of subroutine CUBSPL is to fit a cubic spline 
through an input set of x and y values. The input data are used to 
compute a matrix of simultaneous equations using the cubic spline 
equation (29) with the unknowns being the second derivatives' at each 
input point. This tridiagonal matrix has two less equations than 
unknowns; therefore, the second derivative at end points of the data 
set must be specified. In this subroutine second derivatives at the 

end points are computed by fitting a second-order polynomial of the 
form 

y = ax 2 + bx + c (60) 

to each end point and its two adjacent points and then differentiat- 
ing to determine the second derivative which is 

d y/dx 2 = 2a (61) 

The Crout reduction method, which is discussed in the description of 
subroutine INVY, is used to solve the matrix for the remaining 

second derivative. The tridiagonal matrix terms are 

e i - W 6 


d i - 


h i-i + h i 


(62) 


£ i - V 6 
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and 


. <-*&) - • 


The following parameters are used in this subroutine: 


X and Y 
YPP 

N 

A 


array containing input x and y values 

array containing computed second derivatives 

d 2 y/dx 2 

number of elements in X Y, and YPP arrays 

work array dimensioned by 2 times N in the calling 

program 


DISCUSSION OF PROGRAM APPLICATION AND RESULTS 
The airfoil smoothing program was formulated to smooth the 
coordinates of airfoil-type contours which are characteristically 
round in the front and sharp or blunt in the rear. Several users in 
the past have attempted to use this program to smooth nonairfoil 
shapes such as internal contours of engine nacelles or wind tun- 
nels. These attempts have been generally unsuccessful because of 
the effects of the 0-transformation function which was formulated to 
stretch the x-axis in the leading- and triiling-edge regions. The 
smoothing program can be used successfully to smooth nonairfoil 
contours by redefining the 0-transformation function as 

9 = ±ttx (63) 

and making the appropriate changes in the computer code. 

An airfoil contour may be input into the smoothing program in 
several forms. The most widely used form is, of course, as x and y 
coordinates (IOP = 0) which have been obtained from actual measure- 
ments of an existing airfoil or from theoretical computations. 
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Regardless of the source of the coordinates, the user should strive 
to input a proportionally larger number of coordinates in regions of 
higher curvature which is generally the nose region for most air- 
foils. The user may input as many as 100 coordinates for each air- 
foil surface; however, it is recommended that no more than 35 to 40 
coordinates be input for each surface because, in general, the more 
dense the coordinate spacing the more restricted the smoothing pro- 
cess will become. If the user desires to limit the extent of 
smoothing in a particular region, it is suggested that a few highly 
weighted coordinates be input rather than a large number of closely 
spaced coordinates. 

The question often arises as to the number of smoothing itera- 
tions (ITER parameter) the user should specify. It is recommended 

that zero iterations be specified for the initial run of a new air- 
foil case. The plots generated during the initial run can then be 
examined to establish the initial smoothness of the airfoil, the 
suitability of the input x-coordinate spacing, and the possible 
existence of bad input y coordinates. During all subsequent runs, 
it is recommended that the maximum of 300 iterations be specified. 
The convergence criteria for this smoothing program is rather strin- 
gent; however, the smoothing process should converge or be near 
convergence in less than 100 iterations for most airfoils. If the 
process has not conveyed in 300 iterations, the resultant coordi- 
nates can be written on the output file TAPEl in the form of either 
x and y coordinates or 0 and y values and then input again into the 
smoothing program for another 300 iterations. If, during the ini- 
tial smoothing attempt, the process begins to oscillate, it is sug- 
gested that fewer coordinates be selected in the region where the 


50 


oscillation occurs and the case be resubmitted. The oscillatory 
region can be located by setting the IPRINT parameter in program 
AIRSMO equal to 0 which will generate a summary print of the com- 
puted second derivatives for each iteration. 

The airfoil contour may also be input in the form of y coordi- 
nates and the corresponding 0-values ( IOP = 2). This form is often 
used to resubmit a set of coordinates that required adjustment due 
to either bad or poorly defined nose y coordinates that are often 
revealed during the initial run of a new airfoil. The stretching 
effect of the 0-transformation function will highlight any coordi- 
nate discrepancies in the nose region of the airfoil. 

Two additional input forms are available to modify or smooth an 
airfoil contour and are less direct than the previous two forms 
discussed. The two additional input forms consists of inputting the 
first y' (IOP = 3) or second y" (IOP = 4) derivatives as a function 
of the 0-transformation value. The corresponding y coordinates are 
obtained by solving a tridiagonal matrix of simultaneous cubic 
spline equations; therefore, local changes in the input derivatives 
have a less localized and more global effect in the computed y 
coordinates. Great care should be exercised when using either of 
these two input forms? especially the second derivative, because 
seemly small changes in the derivatives will very often result in 
rather large changes in the y coordinates. In spite of its sensi- 
tivity, these two input forms provide a very easy and direct method 
to reduce or eliminate waviness in the curvature of the final 
smoothed airfoil. 

The airfoil smoothing program has been used extensively at 
Langley for the past several years and has worked successfully for a 
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wide range of airfoil shapes. A comparison between the unsmoothed 
and smoothed first and second derivatives for a typical airfoil is 
presented in figure 8. The corresponding changes in the y coordi- 
nate are very small and are not distinguishable on a page-size plot 
of the airfoil contours. As illustrated in figure 9, the improve- 
ment in the smoothness of the curvature distribution is excellent. 

Only two problems have occurred persistently during the past 
several years of program utilization. The first problem occurs when 
attempting to smooth airfoils with very sharp or zero-thickness 
trailing edges. Although the trailing-edge coordinates are heavily 
weighted, the smoothing process will often result in a small shift 
in the upper and lower surface trailing-edge coordinates. Many 
times the shift will be in the opposite direction and a negative 
trailing-edge thickness will occur. As previously discussed, the 
program checks for negative thickness and, if detected, will print 
an error message and proceed to the next input case. The most 
practical solution to this problem is simply to terminate the input 
coordinates very near the trailing edge at a point with small finite 
thickness. The second problem, as noted in the method section of 
this report, is a difficulty in locating the first few camberline 
coordinates of an airfoil with a reflexed (upward- turned) camberline 
near the trailing edge. This problem can generally be overcome by 
simply reversing the input order of the coordinates so that lower 
surface coordinates are input first, followed by the upper surface 
coordinates . This will not affect the smoothing process, but will 
cause the camberline search procedure to reverse surfaces. 


52 


CONCLUDING REMARKS 

The airfoil computer programs AFSMO and AFSCL described in 
this report have been used successfully at Langley for several 
years to smooth and scale a wide variety of airfoil shapes gen- 
erated by various theoretical methods or measured from existing 
airfoil models and wing panels. The smoothing process is very 
stable and generally converges in less than a hundred iterations. 
The smoothing program user-supplied input requirements are very 
simple and consist of basically specifying the title, input/output 
options, and the upper and lower surface coordinates. The camber- 
line search procedure in the smoothing program generates the 
basic camber and thickness distribution data needed as input to 
the scaling program. The only additional user— supplied input for 
the scaling program are a title, input/output option, and the 
number of and the values for the desired maximum thickness-chord 
ratios . 

The output plots generated by the smoothing program are very 
helpful during the analysis and possible modification of the 
smoothed airfoil. After several years of extensive use by Langley 
personnel, no appreciable execution errors have occurred or airfoil 
shape limitations been revealed. The use of the AFSMO program to 
smooth nonairfoil shapes should not be attempted without redefini- 
tion of the x— axis transformation function. Both programs were 
coded for use on the Langley CDC CYBER computers. No specialized 
system software is needed to execute either program and all 
required subroutines are listed in this report except for several 
basic CALCOMP plotting subroutines which are unique to the Langley 
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computers. Both programs have been successfully converted for 
use on other computer systems; however, double-precision accuracy 
was necessary for the conversion of the smoothing program because 
of its very stringent convergence criteria. 
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APPENDIX A 


COMPUTER LISTING OF AIRFOIL SMOOTHING PROGRAM AFSMO 
This appendix contains a computer listing of the airfoil 
smoothing program AFSMO which consists of a main program, fifteen 
subroutines, and two function subprograms. 
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LISTING OF DECK! AIRS M 0 


PAGE 1 


CARO NQ. 


1 


PPOGRAM A IRSMO (INPUT, OUTPUT, TAPE5-I NPUT, TAPE6- 

OUTPUT, TAPED 

AS 

1 


C 



AS 

2 


C 

THIT PPOGRAM PRESENTS A TECHNIQUE FOR SMOOTHING AIRFOIL 

AS 

3 


c 

COORDINATES USING LEAST SOUAPES POLYNOMIAL AND 

CUBIC SPLINE 

AS 

4 

5 

c 

MFTHODS 


AS 

5 


c 



AS 

6 


c 

CODED BY — HARPY MORGAN NAS A/L ARC /TAD/AAB 

1982 

AS 

7 


c 



AS 

8 



DIMENSION TI TLE ( 8 ) j XINT(100)> X<200)# YC200), 

HC200), VSM0(200)» 

AS 

9 

10 


1YPSC200)# YPPSC20?), THETA ( 202 ) 


AS 

10 


c 



AS 

11 



COMMON /HLM/ DlJMMy(2000) 


AS 

12 


c 



AS 

13 



COMMON /SMY/ DUMMY (2130) 


AS 

14 

15 

c 



AS 

15 



COMMON / BLK1/ PI, PI?, RAD, CONS 


AS 

16 


c 



AS 

17 



COMMON /INOUT/ JRFAD# JWPITE^TPPTNT 


AS 

18 


c 



AS 

19 

20 

c 

SINH(X)-0.5^(CXP(X)-PXP(-X)) 


AS 

20 


c 



AS 

21 


c 

INITIALIZE PROGRAM CONSTANTS 


AS 

22 


c 



AS 

23 



PI-AC0S<-1. ) 


AS 

24 

25 


PI2-PI/2. 


AS 

25 



RAD-180. /PI 


AS 

26 



CONS-1./ (l.+ATANfSINH(PI2) ) ) 


AS 

27 



JREAD-5 


AS 

28 



JWRITE-6 


AS 

29 

30 


IPRINT-1 


AS 

30 



EPS-1 .E-6 


AS 

33 



DF-l.E-4 


AS 

32 



REWIND 1 


AS 

33 


c 



AS 

34 

35 

c 

INITIALIZE PLOTTING DEVICE 


AS 

35 


c 



AS 

36 



CALL PSEUDO 


AS 

37 



CALL LEROY 


AS 

38 


c 



AS 

39 

40 

c 

READ INPUT DATA 


AS 

40 
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LISTING OF DECK* AIPSMO 


PAGE 


2 


CARD NO. 


41 

C 


AS 

41 


1 

CALL INPUT ( TITLE# ITER# I PLOT# IPUNCH# IOP# ICAMTK# INTR# YLTE# YNQSE# YUT 

AS 

42 



1E>NINT# XlNTfC NEW* NP* X# Y*W# THETA# YPS#YPPS# NOSE# CHORD# I ERR) 

AS 

43 



IF (IERR-1) 2*1*5 

AS 

44 

45 

C 


AS 

45 


c 

SMOOTH AIRFOIL COORDINATES 

AS 

46 


c 


AS 

47 


2 

CALL SMOXY (THETA# X# Y# W# YSMO, YPS# YPPS#NP# NOSE, YLTE* YNOSE# YUTE# EPS# 

AS 

48 



lDF*ITER*TITLE*inP*IERR> 

AS 

49 

50 


IF (IERR*NE.O) GO TO 1 

AS 

50 


C 


AS 

51 


C 

PUNCH OUTPUT DATA 

AS 

52 


c 


AS 

53 



IF (IPUNCH. GE.l.AND. IPUNCH. LE. 4) CALL PCARD ( IPUNCH# X# Y* W*THETA# YS 

AS 

54 

55 


1M0*YPS# YP PS# NOS E#NP# CHORD# TITLE ) 

AS 

55 


c 


AS 

56 


c 

PLOT SMOOTHED AND UNSMOOTHED Y/C* SMOOTHED YPS# AND SMOOTHED 

AS 

57 


c 

YPPS VERSUS THETA. ALSO PLOT SMOOTHED AND UNSMOOTHED Y/C VERSUS 

AS 

58 


c 

X/C 

AS 

59 

60 

c 


AS 

60 



IF ( IPL0T.E0.0.GR*IPL0T*E0.4) GO TO 4 

AS 

61 



IF (IPL0T.EQ.3) GO TO 3 

AS 

62 


c 


AS 

63 



CALL PLOT AF ( THETA* Y* YSMO# YPS * YPPS # NP#TITLF# IPLOT) 

AS 

64 

65 

c 


AS 

65 



IF (IPL0T.EQ.5.0R.IPL0T.E0.1) GO TO 4 

AS 

66 



IF <IPL0T.E0*6»GR»IPL0T.EQ.7) GO TO 3 

AS 

67 



IF (IPL0T.EQ.10) GO TO 3 

AS 

68 



GO TO 4 

AS 

69 

70 

c 


AS 

70 


c 

PLOT SMOOTHED CURVATURE VERSUS THETA 

AS 

71 


c 


AS 

72 


3 

CALL PLOTCK ( THETA* YSMO# YPS. YPP$*NP#TTTLE ) 

AS 

73 


c 


AS 

74 

75 

4 

KPLOT-O 

AS 

75 



IF (IPL0T.E0.4.0R.IPL0T.GE.8) KPLOT-1 

AS 

76 


C 


AS 

77 


c 

COMPUTE THICKNESS AND CAMBER DISTRIBUTION 

AS 

70 


c 

IF (ICAMTK.EO.l) CALL CAMTK (THETA*Y$Mn,YPPS#NOSE#NP#EPS#/KPLOT# IPU 

AS 

79 

BO 


AS 

80 
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LISTING OF DECK! AIRSMO 
CARD NO. 


PAGE 


3 


81 


85 


90 


95 


100 


C 

C 

C 


C 

C 

C 

C 

C 

C 

5 


C 

6 


1NCH#TITLE) 

INTERPOLATE NEW COORDINATES 

IF (INTR.GT.O) CALL INTP 
1NT,XINT#CNEV,INTR#IPUNCH> 

RETURN AND READ NEXT CASE 

GO TO 1 

FINALIZE PLOTTING DEVICE 

CALL CALPLT CO. #0. #999) 

WRITE <JVRITE#6) 

END FILE 1 
REWIND 1 
STOP 

FORMAT ClHim/48X,38H — THE LAST 
END 


AS 61 
AS 82 
AS 83 
AS 84 
AS 85 
AS 86 
AS 87 
AS 88 
AS 89 
AS 90 
AS 91 
AS 92 
AS 93 
AS 94 
AS 95 
AS 96 
AS 97 
AS 98 
AS 99 

CASE HAS BEEN PROCESSED — ) AS 100 

AS 101- 


( THETA# X»Y$MO»YPPS#NP» NOSE# CHORD»TITLE#NI 
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LISTING OF DECK! INTER 
CARO NO • 


PAGE 1 


1 


5 


10 


15 


20 


25 


30 


35 


40 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 


1 

2 

3 


SUBROUTINE INTER < XINT#YINT*N#X*Y# J START* JEND* ICO ) 

INTERPOLATION ROUTINE 

ROUTINE SOURCE — NORTH AMERICAN ROCKWELL L. A. DIVISION 1973 

ICO-O WEIGHTING METHOD USED 
ICD-1 LINEAR INTERPOLATION 

DIMENSION X { N ) * Y(N ) 

CHECK TO SEE IF XINT IS OUTSIDE BOUNDS OF X-ARRAY 
JEND-JSTART 

IF ( JSTART.EO.N) GO TO 12 

CHECK TO SEE IF X ARRAY IS INCREASING OR DECREASING 
SGN-1. 

IF (X(N).LTtX(JSTART) ) SGN—1. 

D1*$GN* ( X INT-X (N ) ) 

IF ( Cl« GE • 0«0 ) GO TO 12 
D1-SGN*(XINT-X(JSTART) ) 

IF (Dl.LE.O.O) GO TO 13 
IF ( ICO • EQ* 1 ) GO TO 14 

WEIGHTING METHOD REQUIRES AT LEAST 4 VALUES IN X AND Y ARRAYS 
IF (N«LT«4) GO TO 14 

WEIGHTING METHOD 

POINTS I AFT^7k#M?^ 0F^XINT^ F0R TW ° P °™ TS F0RHAR0 <J * L> AND TW0 
DO l L* JSTART,N 
J-L 

D1*SGN*(X(J)-XINT) 

IF (Dl) 1,2,3 
JEND-J 
YINT-Y( J) 

RETURN 

IF ( J«LE« 2) GO TO 5 
IF (J.EQ.N) GO TO 4 
J J «3 


IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 

IP 


1 

2 

3 

4 

5 

6 
7 
6 
9 

10 

11 

12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
36 

39 

40 
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LISTING OF DECK* INTER 
CARO NO. 


PAGE 


2 


41 


45 


50 


55 


60 


65 


70 


75 


80 


4 


5 

6 

C 

C 


c 

c 


c 

c 


c 

7 


e 


C 

9 


GO TO 6 
J J«2 
J«N-1 
GO TO 6 
J J«1 
J-3 
K-J-l 
P-J-2 
L» J+ 1 

INTERPOLATE A YINT VALUE (YSL) BY FITTING A STRAIGHT LINE 

OWINT-XCH) 

D2"XINT-X (K ) 

D3-XINT-X(J) 

D-(XINT-X(K) )/(X(J)-X(K)) 

YSL«D+Y(J >+<1.0-D)*Y<K> 

INTERPOLATE A YINT VALUE (YP1) BY FITTING A QUADRATIC BETWEEN 
N# K# AND J 

Cl«D3*D2/( (X(N)-X(K) >*(X(M)-X( J) ) ) 
C2«D1*D3/((X(K)-X(N))*(X(K)-X(J)J) 

C3-D2*Dl/( (X(J)-X(M) )*(X(J)-X(K))) 

YP1»C1*Y(M)+C2*Y(K)+C3*Y{ J) 

INTERPOLATE A YINT VALUE ( YP2) BY FITTING A QUADRATIC BETWEEN 
K> J> AND L 
D4«XINT-X(L> 

C1-DA*D3/((X(K)-X(J))*(X(K)-X(L))) 

C 2-D 2*D A/ CCX( J)-X(K) )*<X( J)-X(L) ) » 

C3«D3*D2/( (X(L)-X(K) )*(X(L)-X(JM ) 

YP2«C1*Y(K)*C2*Y(J)+C3*Y{L) 

IF CJJ-2) 7,B#9 
YP2-YPI 

D-(XINT-X(1) J/(X(2I-X(in 

YSL«D*Y ( 2 )♦ { 1#0-D )*Y(1 ) 

GO TO 9 
YP1-YP2 

D« ( X INT-X (N-l ) ) / ( X(N)— X(N— I ) ) 

YSL«D+Y (N )♦ ( 1.0-D)*Y(N-1) 

nru?°*ncIv B ? E vcfI I0N BETWEEN LINEAR ANO QUADRATIC YINT VALUES 
UtVl*A0M Tr 1“ Y5 L ) 


IP 

41 

IP 

42 

IP 

43 

IP 

44 

IP 

45 

IP 

46 

IP 

47 

IP 

46 

IP 

49 

IP 

50 

IP 

51 

IP 

52 

IP 

53 

IP 

54 

IP 

55 

IP 

56 

IP 

57 

IP 

58 

IP 

59 

IP 

60 

IP 

61 

IP 

62 

IP 

63 

IP 

64 

IP 

65 

IP 

66 

IP 

67 

IP 

66 

IP 

69 

IP 

70 

IP 

71 

IP 

72 

IP 

73 

IP 

74 

IP 

75 

IP 

76 

IP 

77 

IP 

76 

IP 

79 

IP 

80 
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LISTING DF DECK J INTER 


PAGE 


3 


CARD NO. 


81 

85 

90 

95 

100 

105 


DEV2»ABS( YP2-YSL) 

IF ( DEV 1+DEV2 ) 10,10,11 

10 YINT-YSL 
RETURN 

C COMPUTE WEIGHTING FACTORS 

11 WT2«CDEV1*0) / (DEVl+D+l 1.0-0 )*0EV2 ) 

WT1-1.0-WT2 

C COMPUTE FINAL YINT 

YINT«WT2*YP2+WT1*YP1 
RETURN 

12 YINT-Y(N) 

JENO-N 

RETURN 

13 YINT-Y( JSTART) 

RETURN 

C 

C LINEAR INTERPOLATION METHOD 

C 

14 DO 15 L*JSTART»N 
J«L 

D1»SGN*(XCJ)-XINT) 

IF f01> 15,2,16 

15 JEND-J 

16 YINT«Y{ J-1)*(Y< J)-Y(J-l) )*(XINT-X( J-l) )/{X( J)-X(J-l) ) 
RETURN 

END 


IP 81 
IP 82 
IP 83 
IP 84 
IP 85 
IP 86 
IP 87 
IP 88 
IP 89 
IP 90 
IP 91 
IP 92 
IP 93 
IP 94 
IP 95 
IP 96 
IP 97 
IP 98 
IP 99 
IP 100 
IP 101 
IP 102 
IP 103 
IP 104 
IP 105 
IP 106- 
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LISTING OF DECK » INPUT PAGE 1 

CARO NO. 


1 


SUBROUTINE INPUT ( TITL E, ITER# IPLOT, IPUNCH, IOP»ICAHTK» INTR, YLTE , 

YNO 

IU 

1 



1SE, YUTE, NINT»XINT,CNEW»NP,X,Y,W,THETA,YP$, YPPS, NOSE»CHORD,IERR> 


IU 

2 


C 



IU 

3 


C 

P HUT INF TO PEAD INPUT DATA FOR AIRFOIL SMOOTHING PROGRAM 


IU 

4 

5 

C 



IU 

5 


c 

CODED BY — HARRY MORGAN NASA/LARC/TAD/ AAB 1*582 


IU 

6 


c 



IU 

7 


C *♦**+++***♦*+*♦*♦*♦♦*+*****♦+**♦*♦********♦*****«*«♦** *♦«****«*++*+*+*+ 

IU 

8 


c* 


♦ 

IU 

9 

10 

c+ 

DESCRIPTION OF INPUT CARDS FOR SMOOTHING PROGRAM 

♦ 

IU 

10 


c* 


* 

IU 

11 


c* 

CARD NUMBER DESCRIPTION 

♦ 

IU 

12 


c* 


* 

IU 

13 


C* , 



IU 

14 

15 

c* 

1 FOPHAT ( 8A10) 

* 

IU 

15 


c* 

TITLE CARD 

♦ 

IU 

16 


c*. 


• •* 

IU 

17 


c* 

2 FORMAT ( 8F10.0) 

♦ 

IU 

18 


c* 

TTER - MAXIMUM NUMBER OF SMOOTHING ITERATIONS 

* 

IU 

19 

20 

c* 

I PLOT - PLOTTING OPTION 

♦ 

IU 

20 


c* 

0 - NO PLOTS 

♦ 

IU 

21 


c* 

1 - PLOT SMOOTHED AND UNSMOOTHED Y/C, SMOOTHED 

♦ 

IU 

22 


c* 

YPS, AND SMOOTHED YPPS VS THETA 

♦ 

IU 

23 


c* 

2 - PLOT SMOOTHED AND UNSMOOTHED Y/C VS X/C 

♦ 

IU 

24 

25 

c* 

3 - PLOT SMOOTHED CURVATURE VS THETA 

* 

IU 

25 


c+ 

A - PLOT CAMBER AND THICKNFSS DISTRIBUTION 

♦ 

IU 

26 


c* 

5 - PLOT OPTIONS I AND 2 

* 

IU 

27 


c* 

6 - PLOT OPTIONS 1 AND 3 

♦ 

IU 

28 


c* 

7 - PLOT OPTIONS 1* 2» AND 3 

♦ 

IU 

29 

30 

c+ 

8 - PLOT OPTIONS 1 AND A 

* 

IU 

30 


c* 

9 - PLOT OPTIONS 1, 2, AND A 

* 

IU 

31 


c* 

10 - PLOT OPTIONS 1# 2, 3* AND A 

♦ 

IU 

32 


c* 

IPUNCH - PUNCH OUTPUT OPTION 

♦ 

IU 

33 


c* 

0 - NO PUNCHED OUTPUT 

♦ 

IU 

34 

35 

c* 

1 - SMOOTHED (X,Y,W) PUNCHED 

♦ 

IU 

35 


c+ 

2 - SMOOTHED (THETA, Y/C, V) PUNCHED 

* 

IU 

36 


c* 

3 - SMOOTHED (THETA, YPS, «) PUNCHED (YLTE, 

* 

IU 

37 


c* 

YNOSE, AND YUTE ALSO PUNCHED) 

♦ 

IU 

38 


c* 

A - SMOOTHED (THETA, YPPS, V) PUNCHED (YLTE, 

* 

IU 

39 

40 

<:♦ 

YNOSE, AND YUTE ALSO PUNCHED) 

* 

IU 

40 
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LISTING 
CARD NO 
41 

45 

50 

55 

60 

65 

70 

75 

BO 


OF DECK t INPUT 


C^ 
C* 
C* 
C* 
C* 
C + 
C + 
C* 
C* 
C* 
C* 

c ♦ 

C* 

c* 

c* 

c* 

c+ 

c* 

C* 

c* 

c* 

c* 

C* 

C* 

c*. 
c + 
c* 
C*. 

c* 

c * 

c* 

c* 

c* 

c* 

c* 

c* 

c*. 

c* 

c* 

c*. 


5 - THICKNESS AND CAMPER DISTRIBUTION (X/ C* 

Y/C* T /C/2# AND *LOPE) PUNCHED 

6 - INTERPOLATED COORDINATES PUNCHED 
IOP - INPUT DATA OPTION 

0 - ( X* Y# W ) INPUT 

1 - (THETA* Y/C* W) INPUT 

2 - (THETA* YPS* W) INPUT 

3 - ( THETA# YPPS# W) INPUT 

ICANTK - THICKNESS AND CAMBER DISTRIBUTION OPTION 

0 - DO NOT COMPUTE THICKNESS AND CAMBER 

1 - COMPUTE THICKNESS AND CAMBER 
IBAO - BAD COORDINATE CHECK OPTION 

0 - DO NOT CHECK FOR BAH COORDINATES 

1 - CHECK FOR BAD COORDINATES 

ITPN - INPUT COORDINATE TRANSLATION AND ROTATION OPTION 

0 - DO NOT TRANSLATE AND ROTATE 

1 - TRANSLATE AND ROTATE SO THAT X-AXIS 

CORRESPONDS TO THE LONGEST CHORDLINE 
INTR - COORDINATE INTERPOLATION OPTTnN 

0 - NO INTERPOLATION DESIRED 

1 - INTERPOLATE NEW COORDINATES USING STANDARD 57 

X/C COORDINATES DEFINED IN SUBROUTINE INTP 

2 - INTERPOLATE NEW COORDINATES AT INPUT X/C 

VALUES (0.0 .GE. Y/C .IE. 1.0) 

FORMAT ( 1 0 2 0 1 * 

NU - NUMBER OF UPPER SURFACE INPUT COORDINATES 
FORM AT(3F10.0) 

XU* YU# WU - UPPER SURFACE INPUT COORDINATES AND WEIGHTING 
(NU CAROS ARE INPUT) 

IF IOP*0* XU*X AND YU* Y COORDINATES 
IF IOP-1# XU-THETA AND YU-Y/C 
IF IOP-2* XU-THETA AND YU-YPS 
IF I0P«3* XU-THETA AND YU-YPPS 
FOR ALL IOP* WU*WE IGHTING FACTOR 

FORMAT (10*0) 

NL - NUMBER OF LOWER SURFACE INPUT COORDINATES 


PAGE 

2 

* 

IU 

41 

♦ 

IU 

42 

♦ 

IU 

43 

♦ 

IU 

44 

$ 

IU 

45 

♦ 

IU 

46 


IU 

47 


IU 

48 


IU 

49 


IU 

50 


IU 

51 


IU 

52 


IU 

53 


IU 

54 


IU 

55 


IU 

56 


IU 

57 


IU 

50 


IU 

59 


IU 

60 


IU 

61 


IU 

62 


IU 

63 


IU 

64 


IU 

65 


IU 

66 


IU 

67 


IU 

68 


IU 

69 


IU 

70 


IU 

71 


IU 

72 


IU 

73 


IU 

74 


IU 

75 


IU 

76 


IU 

77 


IU 

78 


IU 

79 

* 

IU 

80 
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LISTING 
CARD NO 
81 

85 

90 

95 

100 

105 

110 

115 

120 


OP DECKi INPUT 


C* 6 
C* 

C* 

C* 

c* 

c* 

c* 

c* 

C * • • • • i 

C* 7 
C* 

c* 

c* 

C ^ * • • • < 

c* e 

c* 

C * • • • • ( 

C* 9 

C* 

C* 

C* 10 
C* 

c*..... 

c* 
c* 
c * 
c* 
c+ 
c* 


FORMAT ( 3F 10« 0 ) 

XL> YL» WL - LOWFP SURFACE INPUT COORDINATES AND WEIGHTING * 
(NL CAPOS ARF INPUT) 

IF I9P»0> XL®X AND YL*Y COORDINATES 
IF I 0P»1 » Xt«THFTA AND YL»Y/C 
IF I OP ®2» XL*THFTA AND YL"YPS 
IF IQP-3, XL-THETA AND YL-YPPS 
FOR ALL IOP» WL-WEIGHTING FACTOR 

FORHAT ( 3FI0.0 ) SKIP IF I0P-0*0R*1 ************* 

YLTE»YN9SE»YHTE - LOWFR SURFACE TRAILING-FDGE* NOSF, 

AND UPPER SURFACE TRAILING— FDGF 
Y/C CPOPHINATES 

FORMAT CF10»0) SKIP IF INTR«0*0R*1 ****** 

NINT - NUMBER OF INTERPOLATION X/C COORDINATES 

FORMAT (8F10.0) SKIP I F I NTR I© * OR * 1 ’ * * * 

XINT - INTERPOLATION X/C COORDINATES (NINT VALUES INPUT) * 

FORMAT (F10»0) SKTP IF TNTR»0 ***’ *********** **** **** 4 

CN£W - DESIRED CHORD LENGTH OF INTERPOLATED COORDINATES * 

* ***••*•••••••••••••••••••••••! 

RESTRICTIONS* 

ITER NOT GPFATER THAN 300 
NU OR NL NOT GREATFR THAN 100 
NINT NOT GREATFR THAN 100 


C ******* ***** + **********************+*********,**********+ 1 *******,***,,,*^ 

1 ^^5 , ^5NpVAR(e ) , TI TLE ( 8 ) f XINTC1), X(l), YU), W(ll, THETAI1), Y 

C 

c COMMON /SMY/ XU(100)»YU(100)fWU(100)#XL(100)>YL(100)#WL(100) 

COMMON / BLK1 / PI,PI?tRAD>CONS 
C 

COMMON /INOUT/ JP FAD #JWRITP>I PRINT 


PAGE 

3 

* 

IU 

81 

♦ 

IU 

82 

* 

IU 

83 

* 

IU 

84 

$ 

IU 

85 

* 

IU 

86 

♦ 

IU 

87 

* 

IU 

88 

• * 

IU 

99 

* 

IU 

90 

* 

IU 

91 

* 

IU 

92 

* 

IU 

93 


IU 

94 

* 

IU 

95 

* 

IU 

96 

.* 

IU 

97 

* 

IU 

98 

* 

IU 

90 


IU 

100 

♦ 

IU 

101 

* 

IU 

102 


IU 

103 

* 

IU 

104 

* 

IU 

105 

* 

IU 

106 

* 

IU 

107 

* 

IU 

108 

* 

IU 

109 


IU 

110 


IU 

111 

Y 

IU 

112 


IU 

113 


IU 

114 


IU 

115 


IU 

116 


IU 

117 


IU 

118 


IU 

119 


IU 

120 
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LISTING OF OECKl INPUT 
CARO NO. 


PAGE 4 


121 

125 

130 

135 

1 AO 

1A5 

150 

155 

160 


C SINH( X)»CEXP(X)-EXPC-xn/2, 

c 

C INITIALIZE ROUTINE CONSTANTS 

C 

ITRHAX-300 
NMAX "100 
TOLP-1. E-2 
IERR-C 
C 

C REAO AND PRINT IN®UT DATA 

C 

C READ AND WPITE TTTLE 

READ (JREAD,27) TITLF 
IF < FOF ( JR EAO ) ) 25,1 
1 WRITE <JWRITE,2«) TITLE 

C REAO AND WRITE OPTIONS 

READ (JREAD,29) VAR 
ITER«IFIX(VAR(1)1 
IPL0T-IFIX(VAP (2) ) 

IPUNCH.IFIX<VAR<3>) 

I OP* I F I X ( VAR ( A ) ) 

ICAMTK-IFIX(VAR(5) ) 

IBAD« IFIX ( VAR (6) ) 

ITRN-IFIX(VAP(7) ) 

INTR»IFIX (VAR ( 8) ) 

C CHECK LIMITS OF OPTIONS 

IF (ITERtGT.lTRMAX) TTFR-ITRMAX 
IF ( I P LOT • GT* 1 0) IPLOT.O 
IF (IPUNCH.GT.6) IPI'NCH*0 
IP ( I OP# GT* 3) GO TH 23 
IP ( IC AMT K* NE* 0) TCAMTK-1 
IF (IBAD.NE.O) I BAD* 1 
IF ( I TRN*NE • 0) I TRN« 1 
IF ( I NTP • GT* 2) TNTp.o 

WRITE ( JWR I TE, 30 ) ITER, TPLOT, IPUNCH,IOP, IC AMTK, I BAD, ITRN, INTR 
C READ AND WRITE NUMBER OF UPPER SURFACE INPUT POINTS 

READ ( J RE AD, 29 ) VAR(l) 

NU*IF IX ( VAR (1)1 
IF (NU.GT.NKAX) GO TO 22 
WRITE ( JWRITE,31) NU 


IU 121 
IU 122 
IU 123 
IU 124 
TU 125 
IU 126 
IU 127 
IU 128 
IU 129 
IU 130 
IU 131 
IU 132 
IU 133 
IU 134 
IU 135 
IU 136 
IU 137 
IU 138 
IU 139 
IU 140 
IU 141 
IU 142 
IU 143 
IU 144 
IU 145 
IU 146 
IU 147 
IU 148 
IU 149 
IU 150 
IU 151 
IU 152 
IU 153 
IU 154 
IU 155 
IU 156 
IU 157 
IU 158 
IU 159 
IU 160 
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LISTING OF DECK 1 INPUT 
CARD NO. 


PAGE 5 


161 

165 

170 

175 

ISO 

185 

190 

195 

200 


C 


2 


C 


C 


3 


C 


C 

4 


c 


READ AND WRITE UPPER SURFACE INPUT POINTS AND WEIGHTING 
READ ( JRE AD, 32 ) ( XU ( I ) , YU ( I ) » WU ( I ) . I » 1 » NU ) 

00 2 !■ 1, NU 

if (wu( n.LT.i.o) wum-i.o 
CONTINUE 

(JWRITE»33) 

<JWRITE,34) 

(JWRITEt 35) 

(JWRITE, 36) 

(JWRITE, 37) 

(WU(I),I-1,NU) 

NUMBER OF LOWER SURFACF INPUT POINTS 


(IOP.EQ.O) 
(IOP.NE.O) 
(I0P.LT.2) 
(I0P.EQ.2) 
(I0P.EQ.3) 
WRITE ( JWRITE, 38 ) 
READ AND WRITE 


IF 

IF 

IF 

IF 

IF 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 


(XU(I),I«lf NU) 
(XU( £ ) , !'■!, MU) 
(YU(I),I-1,NU) 
(YU(X),I-1,NU) 
(YU(I)f I«lf NU) 


READ (JREAD»29) VAR(l) 
NL-IFIX(VAR(1)) 

IF (NL.GT.NMAX) GO TO 22 
WRITE { JWRITE# 39) NL 


READ AND WRITE LOWER SURFACE INPUT POINTS AMD WEIGHTING 
READ (JREAD, 32) C XL ( I ) , YL ( I ) , WL ( I ) > 1-1, NL) 

DO 3 I-lfNL 

IF <WL( I).LT.1.0) WL(I)-1.0 
CONTINUE 

IF (IOP.EQ.O) WRITE (JWRITE, 40) 

IF (IOP.NE.O) WRITE (JWRITE, 41) 

IF (I0P.LT.2) WRITE (JWRITE, 42) 

IF (I0P.EQ.2) WRITE (JWRITE, 43) 

IF (I0P.EQ.3) WRITE (JWRITE, 44) 

WRITE (JWRITE, 45) ( WL ( I ) , I- 1,NL ) 

READ AND WRITE TRAILING-EDGE COORDINATES 
IE ( IOP.LE.l ) GO TO 4 


(XL(I),I-1,NL) 
(XL ( I ) , I«l, NL ) 
(YL(I)fI«lfNL) 
(YL(I)f I-lfNL) 
(YL(I),I-1,NL) 


READ ( J READ, 29 ) YLTE, YNOSE, YUTE 
WRITE (JWRITE, 46) YLTE, YNOSE, YUTE 

READ AND WRITE NUMBER OF INTERPOLATION COORDINATES 
IF (INTR.EO.O) GO TO 6 
IF (INTR.NE.2) GO TO 5 
READ (JREAD,29) VAR(l) 

NINT-1FIX(VAR(1) » 

IF ( NIN T. GT.NMAX ) GO TO 24 
WRITE (JWRITE, 47) NINT 

READ AND WRITE INTERPOLATION COORDINATES 
READ (JREAD, 29 ) (XINT(I),I«1,NINT) 


IU 161 
IU 162 
IU 163 
IU 164 
IU 165 
IU 166 
IU 167 
IU 168 
IU 169 
IU 170 
IU 171 
IU 172 
IU 173 
IU 174 
IU 175 
IU 176 
IU 177 
IU 178 
IU 179 
IU 180 
IU 181 
IU 182 
IU 183 
IU 184 
IU 185 
IU 186 
IU 187 
IU 188 
IU 189 
IU 190 
IU 191 
IU 192 
IU 193 
IU 194 
IU 195 
IU 196 
IU 197 
IU 198 
IU 199 
IU 200 
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LISTING OF DECK! INPUT 
CARD NO, 


201 

205 

210 

215 

220 

225 

230 

235 

240 


C 

5 

C 

C 

c 

6 


C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

7 

c 

c 

8 


9 


WRITE (JWRITE,46) <XINT(I),t-l,NINT) 

READ AND WRITE NEW CHORO OF INTERPOLATED COORDINATES 
READ (JREAD,29) CNEV 
WRITE (JWRITE»49) CNEV 

CHECK UPPER SURFACE COORDINATES FOR BAD POINTS 
IF (IOP.NE.O) GO TO 7 

IF (IBAO.EQ.l) CALL BADPT ( XU, YU,NU» TOLR, 1# TERR) 

IF (IERR.NE.O) GO TO 26 

CHECK LOWER SURFACE COORDINATES FOR BAD POINTS 

IF (IBAD.EQ.l) CALL BADPT (XL,YL,NL,T0LR,2,TERR) 

IF (IERR.NE.O) GO TO 26 

TPANSLATE AND ROTATE THE INPUT COORDINATES SO THAT THE X-AXIS 
CORRESPONDS TO THE LONGEST CHORDLINE OF THE AIRFOIL 

IF (ITRN.E0.1) CALL TRNSRT (XU# YU#WU#NtJ# XL# YL»WL#NL»TITL£> 

LOAD X# Y, THETA, YPS, AND YPPS ARRAYS 

IF (IOP) 8# 8# 15 

IF I 0P»0, COMPUTE THETA FROM INPUT X 
COMPUTE THETA FOR LOWER SURFACE 
CHORD* XL ( NL )-XL ( 1 ) 

DELTA-XU(NU)-XUd) 

IF (DELTA. GT. CHORD) CHORD-DELTA 
NP-0 

00 11 I-i, NL 
NP-NP+1 
J-NL+l-I 
W(NP)-WL( J) 

DELTA*( XL ( J)-XL(l) )/CHORD 
IF (DELTA. LE. CONS) GO TO 9 
DELTA*TAN( DELT A/CON S-l . ) 

THETA(NP) •~PI2-AL0G(DELTA+SQRT( DELTAPOELTA+1, ) ) 

GO TO 10 

THETA (NP)-ACOS(l. -DELTA/CONS) 


IU 201 
IU 202 
IU 203 
IU 204 
IU 205 
IU 206 
IU 207 
IU 206 
IU 209 
IU 210 
IU 211 
IU 212 
IU 213 
IU 214 
IU 215 
IU 216 
IU 217 
IU 21Q 
IU 219 
IU 220 
IU 221 
IU 222 
IU 223 
IU 224 
IU 225 
IU 226 
IU 227 
IU 228 
IU 229 
IU 230 
IU 231 
IU 232 
IU 233 
IU 234 
IU 235 
IU 236 
IU 237 
IU 236 
IU 239 
IU 240 
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LISTING OF DECK* INPUT 
CARO NO, 


PAGE 7 


241 

245 

250 

255 

260 

265 

270 

275 

280 


10 

11 

C 


12 

13 

14 

C 

C 

15 


16 

17 

c 


X(NP)-XL( JJ/CHORD 
Y(NP)-YL(J)/CHQRD 
NOSE-NP 


COMPUTE THETA FOR UPPER SURFACE 

J«1 

IF tXim.EO.XUm.AND*YLCl),EQ.YU<in J-2 

DO 14 I * J j NU 
NP-NP+1 


W { NP ) *WU ( I ) 

DFLTA«(XU(I)-XU(1J)/CH0RD 

IF (DELTA.LE.CONS) GO TO 12 
DELTA*TAN( DELTA/CONS-1 • ) 

THETA (NP )»PI2*A LOG (DELTA* SORT (OELT A* DEL TA+1#)) 
GO TO 13 


THETA(NP)»AC0S(1.— DELTA /CONS) 

X(NP)»XU( I) /CHORD 
Y(NP)«YU(I) /CHORD 
GO TO 20 

IF IOP-1, 2# OR 3# COMPUTE X/C FROM INPUT THETA 
COMPUTE X/C FOR LOWER SURFACE 
CHORD-1.0 
NP»0 


00 17 I«1,NL 
NP-NP+1 
J-NLU-I 
W(NP)-WL(J) 

IF CI0P.E0.1) Y(NP)»YL(J) 

IF (I0P.E0.2) YPS(NP)-YLtJ) 

IF (I0P.EQ.3) YPPS(NP)-YL(J) 

THETA(NP)-XLCJ)/RAD 

DELTA-ABS(THETA(NP)) 

IF ( DELTA. GT.PI2) GO TO 16 
XL(J)»C ON S+(l. -COS (DELTA)) 

GO TO 17 

XL (J ) *C ON S*(ATAN(SINH( DELTA-PI 2) )+l. ) 

X(NP)-XL(J) 

NOSE-NP 


vi.... COMPUTE X/C FOR UPPER SURFACE 
XU(1 )«XL ( 1 ) 

DO 19 I «2»NU 


IU 241 
IU 242 
IU 243 
IU 244 
IU 245 
IU 246 
IU 247 
IU 246 
IU 249 
IU 250 
IU 251 
IU 252 
IU 253 
IU 254 
IU 255 
IU 256 
IU 257 
IU 256 
IU 259 
IU 260 
IU 261 
IU 262 
IU 263 
IU 264 
IU 265 
IU 266 
IU 267 
IU 266 
IU 269 
IU 270 
IU 271 
IU 272 
IU 273 
IU 274 
IU 275 
IU 276 
IU 277 
IU 278 
IU 279 
IU 260 
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LISTING 
CARD NO 
201 

295 

290 

295 

300 

305 

310 

315 

320 


OF DECK J INPUT 


PAGE 6 


NP-NP+1 

w ( np )» vu( i > 

IF (IOP.EQ.l) Y(NP) *YU( I) 

IF (I0P.EQ.2) YP$ (NP ) »YU( I ) 

IF (I0P.EQ.3) YPPS (NP ) «YU( I ) 

THETA(NP)*XU(I ) /RAD 
DELTA"ABS(THETA(NP)) 

IF (DELTA. GT.PI2) GO TO 18 
XU(I)»C0NS*(1.-C0S(DELTA) ) 

GO TO 19 

19 XU (I >«C0NS*(ATAN(SINH(DELTA-PI2mi.) 

19 X(NP)-XUd) 

C 

C PRINT SUMMARY OF INPUT DATA 

C 

20 WRITE ( JWRITE, 50) TITLE 
DO 21 I-1»NP 
DELTA»THETA(I)*RAD 

IF (IOP.LE.l) WRITE (JWRITE, 51) I, X ( I ) , Y( I ) , DELTA, W( I ) 

IF (I0P.E0.2) WRITE (JWRITE, 52) I, X ( I ) , DELTA, YPS ( I ), W( I ) 
IF (I0P.E0.3) WRITE (JWRITE, 53) I, X ( I ) , DELTA, YPPS ( I ) ,W( I ) 

21 CONTINUE 

WRITE {JWRITE, 54) CHORD 
GO TO 26 
C 

C RRINT ERROR MESSAGES 

C 

22 NN-IFIX(VAR(1)) 

WRITE (JWRITE, 55) NN 
GO TO 25 

23 WRITE (JWRITE, 56) IOP 
GO TO 25 

24 WRITE (JWRITE, 57) NINT 
C 

C NO ADDITIONAL INPUT DATA 

C 

25 IERR-2 
C 

C RETURN TO CALLING PROGRAM 

C 


IU 281 
IU 282 
IU 283 
IU 284 
IU 285 
IU 286 
IU 287 
IU 286 
IU 289 
IU 290 
IU 291 
IU 292 
IU 293 
IU 294 
IU 295 
IU 296 
IU 297 
IU 298 
IU 299 
IU 300 
IU 301 
IU 302 
IU 303 
IU 304 
IU 305 
IU 306 
IU 307 
IU 308 
IU 309 
IU 310 
IU 311 
IU 312 
IU 313 
IU 314 
IU 315 
IU 316 
IU 317 
IU 318 
IU 319 
IU 320 
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LISTING OF DECK: INPUT 
CARD NO. 


PAGE 9 


321 

325 

330 

335 

340 

345 

350 

355 


RETURN 


FORMAT (8A10) 

InVltl Jlllh 5 i; #14H “ XNMT DATA~//5X,7HTITlE--,2X,eA10> 

FORMAT (8F10.5) 

FORMAT ( / 5X» 6HITER «,I4,3X,7HIPL0T »#T3,3X#8HIPUNCH ■# I3»3X»5HI0P 
1”/I3#3X/BHICANTK »,I3>3X,6HIBAD •»I3#3X»6HITRN ■» I3» 3X* 6HINTR «»I3 

FORMAT (/5X,4HNU »,I4) 

FORMAT C3F10.5) 

FORMAT C/5X,3HXU« # BE15.6/(0X,8E15.6n 
FORMAT </5X,3HTU.,8E15.6/<8X,8E15.6)) 

FORMAT ( /5X,3HYU-, 8615.6/ <8X, 8615. 6) ) 

FORMAT < /4X,4HYPU-» 8615.6/ <8X» 8615.6) ) 

FORMAT </3X,5HYPPU-»8E15.6/(8X,8E15.6) ) 

FORMAT (/5X>3HWU-,8E15.6/(8X,8E15.6)) 

FORMAT ( / 5X# 4HNL «,I4) 

FORMAT (/5X,3HXL«,8E15.6/(8X,8£15.6) ) 

FORMAT < /5X>3HTL»,8E15.6/(8X,8E15.6) ) 

FORMAT (/5X*3HYL-,8E15.6/(8X»8E15.6) ) 

FORMAT C/4X,»4HYPL“*8E15.6/(8X»8E15«6)) 

FORMAT (/3X»5HYPPL-»8615.6/(8X,8E15.6) ) 

FORMAT (/ 5X, 3HWL«»8E15. 6/ <8X, 8615.6 ) ) 

FORMAT ( / 3X# 6HYLT6 ■*E15.6»5X»7HYN0SE -» E15, 6» 5X> 6HYUTE ■*E15,6) 
FORMAT ( / 3X> 6HNINT -,I4) ’ ' 

FORMAT ( / 3X#5HXINT*#8E15.6/ (8X.8E15.6)) 

FORMAT ( / 3X> 6HCNEW -,F10.3) 

FORMAT (1H1»29X»25H — SUMMARY OF INPUT DATA — //5X.9HTITLE — #8A10/ 

iuuf ,1HI ' 10X,3HX/C#12X ' 3HY/C#12X,5HTHET ** 10x » 3HYp S»12X»4HYPPS»14X,l 
ZHW ) 

FORMAT (I10>2F15.6*F15.2,30X,F15.2) 

FORMAT (I10>F15«6»15X»F15«2#F15*6#15X»F15.2) 

FORMAT (I10.F15.6»15X»F15.2»15X#F15.6»F15,2) 

FORMAT ( / 5X# 7HCH0RD «»F15.6) 

FORMAT ( / /5X#28HINPUT CARD ERROR NU OR NL .,14) 

FORMAT {//5X.23HINPUT CARD ERROR IOP -.14) 

FORMAT { / /5X, 24HINPUT CARD ERROR HINT -,I5) 
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LISTING OF DECK t TRNSRT 


PAGE I 


CARD NO. 


1 


SUBROUTINE TRNSRT (XU# YU# WU#NU#XL# YL# VL#NL#TTTLE ) 

TR 

1 


C 


TR 

2 


C 

ROUTINE TO TRANSLATE AND ROTATE THE INPUT AIRFOIL COORDINATES SO 

TR 

3 


C 

THAT THE X-AXlS CORRESPONDS TO THE LONGEST CHOROLINE 

TR 

A 

5 

C 


TR 

5 


C 

CODED BY — HARRY MORGAN NASA/ LARC /TAD / A A8 1982 

TR 

6 


C 


TR 

7 



DIMENSION XU<1), YU(1)# WU(1)# XL<1)# YL (1 )# VL(1)# TITLE (8) 

TR 

8 


C 


TR 

9 

10 


COMMON /HLH/ X( 200) #Y( 200) # W( 200) 

TR 

10 


c 


TR 

11 



COMMON /BLK1 / PI# PI 2# R AD# CONS 

TR 

12 


c 


TR 

13 



COMMON /INOUT/ JREAD# J WRITE# IPRINT 

TR 

1A 

15 

c 


TR 

15 


c 

PRINT INPUT COORDINATES 

TR 

16 


c 


TR 

17 



WRITE ( JWRITE# 13 ) TITLE 

TR 

18 



J »NU 

TR 

19 

20 


IF (NL.GT.NU) J*NL 

TR 

20 



DO 1 I-1#J 

TR 

21 



IF (I.LE.NU.AND#I#LE#NL) WRITE UWRITE,1A) T# XU( I ) #YU( I ) # XL ( I ) # YL ( 

TR 

22 



11) 

TR 

23 



IF (I.LE.NU'AND'I'GT'NL) WRITE <JVRITE#1A) I# XU( I )# YU( I ) 

TR 

2A 

25 


IF (I,GT*NU.AND.I.LE.NL) WRITE UWRITF#15) I # XL ( I ) # YL ( I ) 

TR 

25 


1 

CONTINUE 

TR 

26 


c 


TR 

27 


c 

COMPUTE LONGEST CHORDLINE 

TR 

28 


c 


TR 

29 

30 

c 

LOAD LOWER SURFACE COORDINATES 

TR 

30 



N»0 

TR 

31 



DO 2 I-1#NL 

TR 

32 



J*NL+1-I 

TR 

33 



N*N + 1 

TR 

3A 

35 


W ( N ) -WL ( J ) 

TR 

35 



XCN)-XL(J) 

TR 

36 


2 

Y(N)-YL (J ) 

TR 

37 



J «1 

TR 

38 



IF (XL(1).EQ#XUC1).AND*YL(1)#EQ#YU(1)) J-2 

TR 

39 

AO 

C 

LOAD UPPER SURFACE COORDINATES 

TR 

AO 
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LISTING OF DECK i TRNSRT PAGE 2 

C*RD NO. 


41 


DO 3 I-J/NU 

TR 

41 



N-N+l 

TR 

42 



W(N)-VUd) 

TR 

43 



X(N)-XUd) 

TR 

44 

45 

3 

Y(N)-YUd) 

TR 

45 


C 

COMPUTE MIDPOINT OF TRAILING-EOGE BASE 

TR 

46 



XTE«0.5*(Xd)+X(N>) 

TR 

47 



YTE«0»5*(Y(1)+Y(N>) 

TR 

48 


C 

FIND MOST FORWARD LEADING-EDGE POINT AND LONGEST CHORD 

TR 

49 

50 


CHOROO.O 

TR 

50 



DO 5 I-1»N 

TR 

51 



DIST-SQRT{(Xd)-XTE)*+2+(Yd)-YTE)**2> 

TR 

52 



IF (DIST-CHORD) 5*5, t, 

TR 

53 


4 

CHORD-DIST 

TR 

54 

55 


NOSE-I 

TR 

55 



XNOSE*X ( I ) 

TR 

56 



YNOSE-Yd) 

TR 

57 


5 

CONTINUE 

TR 

58 


C 


TR 

59 

60 

C 

TRANSLATE AND ROTATE AIRFOIL 

TR 

60 


C 


TR 

61 



IF (CHORD. LE.O.O) GO TO 6 

TR 

62 



COSA-(XTE-XNOSE) /CHORD 

TR 

63 



SINA-(YTE-YNOSE) /CHORD 

TR 

64 

65 


ANGLE*ATAN (S INA/COSA)*RAD 

TR 

65 



GO TO 7 

TR 

66 


6 

COSA-O.O 

TR 

67 



SINA-0.0 

TR 

66 



ANGLE«0 • 0 

TR 

69 

70 

7 

DO 8 I« 1 » N 

TR 

70 



DIST-X(I) 

TR 

71 



X( I)»(DIST-XNOSE)*COSA+(Yd)-YNOSE)*SINA 

TR 

72 


8 

Y(I)»(Y(I)-YNOSE)*COSA-(OIST-XNOSE)*SINA 

TR 

73 


C 


TR 

74 

75 

C 

REDEFINE LOWER AND UPPER SURFACE COORDINATES 

TR 

75 


c 


TR 

76 



DO 9 I« 1 , NOSE 

TR 

77 



J«NOSE+ 1-1 

TR 

78 



WLdJ-W(J) 

TR 

79 

80 


XLd)-X(J) 

TR 

80 
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CARD NO. 


PAGE 3 


61 


85 


90 


95 


100 


105 


110 


9 


10 

C 

C 

C 


11 


c 

12 

13 

14 

15 

16 


run-ru) 

NL-NOSE 

DO 10 I»NOSE»N 

J-I+l-NOSE 

WU(J)-Wd) 

XU(J)-Xd) 

YIM J )«Y ( I) 

NU»J 

PRINT NEW AIRFOIL COORDINATES 

WRITE ( JWRITE.16) TITLE 
J"NU 

IF (NL.GT.NU) J«NL 
DO 11 I«1#J 

^IF (I.LE.NU.ANO.I.LE.NL) WRITE (JWRITE.14) T»XU(I ),YUd ), XL d ) ; YL ( 

IF (I.LE.NU.AND.I.GT.NL) WRITE (JWRITE»14> I>XUd)»YU(I) 

IF (I.GT.NU.AND.I.LE.NL) WRITE (JWRITF.15) I»XLd)»YL(I) 

CONTINUE *' 

WRITE ( JWRITE.12) XNOSE.YNOSE, ANGLE 
RETURN 

cSnufl {'5X,7HXN0SE ■#F15.6>5X»7HYN0SE «,F15.6,5X,7HANGLE -»F8.3) 
FORMAT UH1,32X,21H — INPUT COORDINATES — //5X.7HTITLE — .2X.8A10//9X 
1# 1HI> 11 X# 2HXU> 13X#2HYU«13X» 2HXL*13X#2HYL) 

FORMAT C5X, I5.4F15.6) 

FORMAT (5X*I5#30X#2F15.6) 

FORMAT (1H1.21X.38H— TRANSLATED AND ROTATED COORDINATES — //5X.7HTI 
*2X> 8A10//9X> 1HI# 11X*2HXU» 13X» 2HYU# 13X» 2HXL * 13X.2HYL ) 

END 


TR 

TR 

TR 

TR 

TR 

TR 

TR 

TR 

TR 

TR 

TR 

TR 

TR 

TR 

TR 

TR 

TR 

TR 

TR 


81 

82 

83 

84 
65 
86 
87 
86 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


TR 100 
TR 101 
TR 102 
TR 103 
TR 104 
TR 105 
TR 106 
TR 107 
TR 108 
TR 109 
TR 110 
TR 111- 
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LISTING OF DECK* BADPT 
CARD NO. 


PAGE 


1 


1 


5 


10 


15 


20 


25 


30 


35 


40 


SUBROUTINE BADPT ( X, Y, NP, TOLR, ISURF, IERR ) 

C 

C ROUTINE TO EDIT BAD POINTS FROM X AND Y INPUT COORDINATES 
C 

C CODED BY ~ HARRY MORGAN NASA/LARC/TAD/AAB 1982 

C 

DIMENSION X<1), Y(l), SURFC2) 

C 

COMMON / HLM/ TIC 100), YI(IOO), YN(100),THFTA(100) 

C 

COMMON / BLK1/ PI, PI2, RAD, CONS 
C 

COMMON /INOUT/ JREA0,J WRITE, IPRINT 
C 

DATA SURF(1)/5HUPPER/,SURF(2)/5HL0WER/ 

C 

C IF TOLERANCE IS ZERO OR NEGATIVE RETURN 
C 

IERR *0 

IF ( TOLR • LE,0 • 0 ) RETURN 
C 

C COMPUTE LOCAL CHORD 
C 

CHORD-X (NP)-X(l) 

C 

C INITIALIZE ITERATION PARAMETERS 

C 

ICD-0 

IPTP-0 

Nl-NP-1 

NMAX-0 

TOLC ■TOLR*CHORD 
C 

C COMPUTE THETA EQUIVALENT OF X 

C 

DO 2 I-1,NP 

DFLTA-(X(I )-X<l) ) /CHORD 
IF (DELTA. LE. CONS) GO TO 1 
DELTA-TAN ( DELTA/CONS-1 . > 

THETA (I )-PI2+AL0G(DELTA+$0RT(DELTA*DELTA+l, ) ) 


BD 

1 

BD 

2 

BD 

3 

BD 

4 

BD 

5 

BD 

6 

BD 

7 

BD 

8 

BD 

9 

BD 

10 

BD 

11 

BD 

12 

BD 

13 

BD 

14 

BD 

15 

BD 

16 

BD 

17 

BD 

18 

BD 

19 

BD 

20 

BD 

21 

BD 

22 

BD 

23 

BD 

24 

BD 

25 

BD 

26 

BD 

27 

BD 

26 

BD 

29 

BD 

30 

BD 

31 

BD 

32 

BD 

33 

BD 

34 

BD 

35 

BD 

36 

BO 

37 

BD 

38 

BD 

39 

BD 

40 
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LISTING OF DECK* BACPT 


PAGE 


2 


CARD NO. 


A1 


GO TO 2 


BD 

A1 


1 

THETA< I )«AC0$(1. -DELTA/CONS) 


BD 

A2 


2 

CONTINUE 


BD 

A3 


C 



BD 

AA 

A5 

c 

LOOP TO SEARCH FOR BAO POINTS 


BD 

A5 


c 



BD 

A6 


3 

NMAX-NMAX+1 


BD 

A7 



JSTAPT-I 


BD 

A6 


C 

COMPUTE NEW Y VALUE BY INTERPOLATION 


BD 

A9 

50 


DO 5 I* 2# N1 


BD 

50 



K-0 


BD 

51 


c 

LOAD TI AND YI ARRAY - OMIT THE I ( TH ) 

INPUT DATA POINT 

BD 

52 



DO A J » 1# NP 


BD 

53 



IF (I.EO.J) GO TO A 


BD 

5A 

55 


K-K + l 


BD 

55 



TI (K)»THETA(J) 


BD 

56 



YI (K )*Y ( J ) 


BD 

57 


A 

CONTINUE 


BD 

58 


c 

INTERPOLATE I ( TH) DATA POINT 


BD 

59 

60 


CALL INTER < THET A ( I ) # YN C I ) # K, TI * YI , JST ART# J END 

> TCD) 

BD 

60 



JSTART-JEND 


BD 

61 


5 

CONTINUE 


BD 

62 


C 

CHECK TOLERANCE OF INTERPOLATED POINTS 


BD 

63 



IPT-0 


BD 

6A 

65 


ERRMAX-O. 


BD 

65 



DO 7 I* 2* N1 


BD 

66 



ERRMIN-O. 


BD 

67 



ERR* ABS (YN(I)-Y(I)) 


BD 

68 



IF (ERR .GE.TOLC) ERRMIN-ERR 


BD 

69 

70 


IF (EPRMIN-ERRMAX) 7,7*6 


BD 

70 


6 

IPT-I 


BD 

71 



ERRMAX* ERRMIN 


BD 

72 


7 

CONTINUE 


BD 

73 



IF (IPT.EQ.O) RETURN 


BD 

7A 

75 

C 

PRINT COORDINATES OF BAD POINTS 


BD 

75 



IF (NMAX.EQ.l) WRITE (JWRITE»9) SURF(ISURF) »TOLC 

BD 

76 



WRITE ( JWRITE* 10) IPT,X(IPT)#YaPT),YN(IPT) 


BD 

77 


C 

REPLACE BAD POINT WITH INTERPOLATED VALUE 


BD 

76 



YdPT)-YN(IPT) 


BD 

79 

eo 

c 

CHECK TO SEE IF THIS BAD POINT IS ADJACENT 

TO THE PREVIOUS BAD 

BD 

80 


75 
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CARD NO. 


PAGE 3 


81 

85 

90 

95 

100 


c 

c 


c 

c 

c 

c 

c 

c 

8 


C 

9 

10 
11 


POINT ~ IF IT IS* PRINT A WARNING MESSAGE AND TERMINATE 
PROGRAM EXECUTION 

IF ( (IPTP»EO» IPT— 1 ).0R.(IPTP.EQ.IPT+1)) GO TO 8 

IF (IPTP.EO.IPT) GO TO 8 

IPTP-IPT 

IF (NMAX.GE.NP) RETURN 

RETURN TO START OF LOOP AND SEARCH FOR NEXT BAD POINT 
GO TO 3 

WARNING MESSAGE PRINT STATEMENT 

WRITE ( JWRITE» 11 ) 

IERR-1 

RETURN 


BD 81 
BO 62 
BO 83 
BO 84 
BO 85 
BO 86 
BO 87 
BO 88 
BO 89 
BO 90 
BD 91 
BO 92 
BD 93 
BD 94 
BD 95 
BO 96 


>n oN the>ix s H 

FORMAT (1X.93HADJACENT BAD POINTS HAVE BEEN FOUND — PLEASE CORREC BD 10? 
IT YOUR INPUT DATA AND RESUBMIT THIS CASE.) C JJS 

EN ° BD 104- 


76 



LISTING OP DECK: SHOXY 
CARD NO. 


PAGE 


1 


1 


SUBROUTINE SMOXY ( THET A# X# Y# W# YSMO# YPS# YPPS#NP, NOSE# YLTF# YNOSE# YUT 

SO 

1 



IE# E»S# OF# ITER# TITLE# IOP#IERR> 

so 

2 


C 


so 

3 


C 

THIS SUBROUTINE PRESENTS A TECHNIQUE FOR SMOOTHING Y INPUT 

so 

4 

5 

C 

COORDINATES USING LEAST SOUARES POLYNOMIAL AND CU»IC SPLINF 

so 

5 


C 

METHODS 

so 

6 


C 


so 

7 


c 

IF I0P-0 OR 1# COMPUTE YPPU (UNSMOOTHED SECOND DERIVATIVES) FROM 

so 

8 


C 

LEAST SQUARES POLYNOMIAL FITTING OF Y VS THETA. THEN COMPUTE 

so 

9 

10 

c 

YPPS (SMOOTHED SECOND DERIVATIVES) FPOM LEAST SQUARFS CUBIC 

so 

10 


c 

SPLINE FITTING OF YPPU VS THETA. FINALLY COMPUTE YSMO (SMOOTHED Y 

so 

11 


c 

COORDINATES) USING INVERSE CUBIC SPLINE METHOD. 

so 

12 


c 


so 

13 


c 

IF IOP-2# COMPUTE SECOND DERIVATIVES FROM INPUT FIRST DERIVATIVES. 

so 

14 

15 

c 

THEN COMPUTE UNSMOOTHED Y COORDINATES FROM SECOND DERIVATIVES AND 

so 

15 


c 

FOLLOW SAME PROCEDURES AS OUTLINPD ABOVE FOR IDP 0 OR 1. 

so 

16 


c 


so 

17 


c 

IF IOP-3# COMPUTE UNSMOOTHED Y COORDINATES FROM INPUT SECOND 

sn 

18 


c 

DERIVATIVES. TH<=N FOLLOW SAME PROCEDURES AS OUTLINED ABOVE FOR 

so 

19 

20 

c 

IOP 0 OR 1. 

so 

20 


c 


so 

21 


c 

CODED BY — HARRY MORGAN NAS A/L ARC /TAD/AAB 1982 

so 

22 


c 


so 

23 


c 

DIMENSION THETA, X# Y# W# YSMO# YPS# AND YPPS BY NP IN CALLING 

so 

24 

25 

c 

PROGRAM 

so 

25 



DIMENSION TITLF(B)# THFTA(l), X(l)# Y(l), W(l)# YSMO(H, YPS(l)# Y 

so 

26 



1PPS(1) 

sn 

27 


c 


so 

26 



COMMON /HLM/ WK(200#10) 

so 

29 

30 

c 


so 

30 



COMMON /SMY/ YPP ( 200 )# YUSMO( 200)# DUM ( 200 )# A ( 200# A)# YN( 200 ) , YPPU( 20 

so 

31 



10)#SUMY(300),LTPR(30) 

so 

32 


c 


so 

33 



COMMON /BLKl/ PI # PT2 #R AD# CONS 

so 

34 

35 

c 


so 

35 



COMMON /INOUT/ JRE AD# J WRITE# IPR INT 

so 

36 


c 


so 

37 



DATA LMX/200A#WT/100 ./ 

so 

38 


c 


so 

39 

40 

c 

SINH(X)>(EXP(X)-EXP(-X))/2. 

so 

40 
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LISTING 
CARO NO 
41 

45 

50 

55 

60 

65 

70 

75 

80 


OF PECK: SHOXY 


PAGE 


C 

C 

C 

C 

c 

c 

1 

2 


4 

C 


c 

c 


C0$H<X)-CEXP<X)+EXP(-X>)/2. 

IERR-0 

IF <IOP.EQ.O.QR # IOP,eq # i) GO TO 13 
IF (I0P.E0.2) GO TO 1 
IF ( IOP • EQ# 3 ) GO TO 11 

Jcd™*tI»cc 0 , 1 S UTE second derivatives from input first 
derivatives! ™ EN C0HPUTE initia «- y/c coordinates from second 

.. , , COMPUTE SECOND DERIVATIVES USING CSDS 
DO 2 I*1#NP 

DUPm-i,o 

Tl-O.O 

^ L ^T«o S u i L ^ , ^ ,THETA,YPS ' Du ^ T 1 »- 1 ^» WK »i E RR) 

IF (IERR.NE.O) 60 TO 71 
DO A I-1,NP 
IF (I.EO.NP) 60 TO 3 
YPPS(I)«A(I,2) 

GO TO A 

DELTA-THETA(I)-THETACI-l) 

CONTINUE <3, * A(1 “ 1,4, * DELTA+2 ** A(I - 1 » 3 > , *DELTA*A{I-1 > 2) 

_ _ . , COMPUTE SECOND DERIVATIVES USING LSOSMO 

DELTA»1 ♦ 

^CALL LSOSMO ( THETA, YPS»W,DUM, YPP, YUSM(1,NP, 1,NP,N0SE, DELTA, EPS, IERR 

IF (IERR.NE.O) RETURN 

COMPUTE Y/C COORDINATES 

^CALL YNEW (THETA, YPPS, Y,NOSE, NP, YLTE, YNPSE, YUTE, EPS, DUM,WK, JWR ITE, 

iteIo) YNEW (THETA ' ypp ' yusmo » n ose,np,ylte,ynose,yute,eps,dum,wk,jwri 

FiKtIeWATIvIJ ° ERIVATIVES AND COMPARE WITH INPUT 

WRITE (JVRITE,73) TITLE 

SUMl-0,0 

SUM2-0.0 

DO 7 I»1,NP 


SO 

41 

so 

42 

so 

43 

so 

44 

so 

45 

so 

46 

so 

47 

so 

48 

so 

49 

so 

50 

so 

51 

so 

52 

so 

53 

so 

54 

so 

55 

so 

56 

so 

57 

so 

58 

so 

59 

so 

60 

so 

61 

so 

62 

so 

63 

so 

64 

so 

65 

so 

66 

so 

67 

so 

68 

so 

69 

so 

70 

so 

71 

so 

72 

so 

73 

so 

74 

so 

75 

so 

76 

so 

77 

so 

78 

so 

79 

so 

80 


78 



LISTING OF DECK! SMOXY 
CAPO NO. 


PAGE 


3 


81 


IF (I.EO.l) GO TO 5 

SO 

81 



DELTA-THETA ( I )-THETA(I-l) 

so 

82 



YNd)«YPPSd-l)*DELTA/6.+YPPS(I)*DELTA/3.*(Yd)-Y(I-l) ) /DELTA 

so 

83 



DUMd>-YPPd-l)*DELTA/6.*YPPd>*DElTA/3. + (YUSN0d)-YUSM0d-l))/DEL 

so 

84 

85 


1TA 

so 

85 



GO TO 6 

so 

86 


5 

DELTA-THETA(2)-THETA(1 ) 

so 

87 



YN(1 ) — YPPS(l)*DELTA/3.-YPPS(2)*DELTA/6. + <Y(2)-Yd))/0ELTA 

so 

88 



DUM( 1)--YPP( 1 )*DELTA/3.-YPP (2 )*DELTA/6.4( YUSNQ( 2)-YU$M0( 1 )) /DELTA 

so 

89 

90 

6 

T1-YPS( I)-YN(I) 

so 

90 



T2-YPS( I)-OUM(I) 

so 

91 



SUM1«SUM1+T1*TI 

so 

92 



SUM2-SUM2+T2*T2 

so 

93 


7 

WRITE ( JWRITE,74) I, YPS ( I ) * YN ( I ) ,T1,0UHCI) »T2 

so 

94 

95 


WRITE ( JWRITE»75) SUM1.SUM2 

so 

95 


C 

SELECT OUTPUT FROM EITHER CSOS OR ISQSMO 

so 

96 



DO 10 I-1,NP 

so 

97 



IF (SUM2.LT. SUM) GO TO 8 

so 

98 



YPP( I)-YPPS(I) 

so 

99 

100 


GO TO 9 

so 

100 


8 

Y(I)-YUSMOd) 

so 

101 



YN(I)-DUMd) 

so 

102 


9 

YSMO(I)-Y(I) 

so 

103 


10 

YUSMOd)-Y(I) 

so 

104 

105 


IF (SUM2.GE.SUM1) WRITE (JWRITE>76) 

so 

105 



IF (SUM2.LT. SUM1) WRITE (JWRITE.77) 

so 

106 



IF ( ITER.EO.O) GO TO 48 

so 

107 



GO TO 13 

so 

108 


c 


so 

109 

110 

c 

IF IOP-3, COMPUTE INITIAL Y/C FROM INPUT SECOND DERIVATIVES 

so 

110 


c 

AND Y /Q COORDINATES AT THE UPPER AND LOWER SURFACE TRAILING 

so 

111 


c 

EOGE AND NOSE 

so 

112 


c 


so 

113 


11 

CALL YNEW (THETA, YPPS, Y, NOSE, NP, YLTE.YNOSE, YUTE, EPS. OUM.WK, JWRITE» 

so 

114 

115 


10) 

so 

115 


c 

COMPUTE FIRST DERIVATIVES 

so 

116 



DO 12 I -1,NP 

so 

117 



YSMO(I)-Yd) 

so 

118 



YUSMOd)-Y(I) 

so 

119 

120 


IF (I.EQ.l) GO TO 12 

so 

120 
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CARD NO • 


RAGE 4 


121 

125 

130 

135 

140 

145 

150 

155 

160 


12 


C 

C 

C 

13 


14 

C 

C 

C 

C 


C 


15 


16 

C 

C 

C 

c 

17 


DELTA«THETA(I)-THETA(I-1) 

YPPcnI!”$m , * OELTA/ 6 ,+VPPScn * DELTA/ 3 ' +(V<I »- Y «-i>)/oeLTA 

0ELTA«THETA(2 )— THETA { 1 ) 

INITIALIZE ARRAYS 

DO 14 I-1,NP 
YUSMOd ) -Y ( I » 

IF CI0P.LT.2) YPP( I )«0.0 

YSMO(I) ■THETA(I)*RAO 

DUN(I)-l. 

IF (ITER.GT.O) GO TO 17 

IF IOP-O OR 1 AND NO SHOOTHING OESIRFD (I.E. TTFD-n* 

SECDNO DERIVATIVE FROM CUBIC SrCike SUBRjOnNE ’ CO " POt[ 

COMPUTE Y AND SECOND DERIVATIVE 
DO 16 I-1,NP 
IF ( I»EQ* NP ) GO TO 15 
YSM0(I)-A(I,1) 

YN ( I ) «A ( I » 2 ) 

YPP(I)-2.*A(I,3) 

GO TO 16 

0ELTA-THETA(I)-THETA(I-1) 

CONTINUE ,4ELTA+2 ** A<I ” 1,3) 

GO TO 48 


lJSeR ,1 ;5SJaC M ES NPUT Y V * LUE AN0 ITS L0CATI0M UPPER AND 
LOWER surface 

YNAX-0.0 

JHAXL-1 


SO 121 
SO 122 
SO 123 
SO 124 
SO 125 
SO 126 
SO 127 
SO 128 
SO 129 
SO 130 
SO 131 
SO 132 
SO 133 
SO 134 
SO 135 
SO 136 
SO 137 
SO 138 
SO 139 
SO 140 
SO 141 
SO 142 
SO 143 
SO 144 
SO 145 
SO 146 
SO 147 
SO 148 
SO 149 
SO 150 
SO 151 
SO 152 
SO 153 
SO 154 

SO 155 
SO 156 
SO 157 
SO 158 
SO 159 
SO 160 
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161 


DO 19 I-1,N0SE 

SO 

161 



J-NDSE+l-I 

SO 

162 



IF (ABS(Y(J) ) .GT.YMAV) GO TO 18 

so 

163 



GO TO 19 

so 

164 

165 

18 

YMAX-ABS(Y(J )) 

so 

165 



JMAXL-J 

so 

166 


19 

CONTINUE 

so 

167 


C 

UPPER SURFACE 

so 

168 



YMAX-0.0 

so 

169 

170 


JMAXU-1 

so 

170 



DO 21 I-NO $E#NP 

so 

171 



IF ( ABS ( Y { I ) )*GT t Y M AX) GO TO 20 

so 

172 



GO TO 21 

so 

173 


20 

YMAX« ABS ( Y< I ) ) 

so 

174 

175 


JMAXU-I 

so 

175 


21 

CONTINUE 

so 

176 


C 


so 

177 


c 

COMPUTE UNSMOOTHED SECOND DERIVATIVE USING LEAST 

so 

178 


c 

SQUARES POLYNOMIAL M^THOO 

so 

179 

180 

c 


so 

180 



J1*0 

so 

131 



ICON-O 

so 

182 



MTER-0 

so 

183 



J-ITER 

so 

134 

185 


KTI-0 

so 

135 



IF (I PRINT. NE.O) WRITE UWRITE>73) TITLE 

so 

136 



DO 23 I *1 # 30 

so 

187 



KTI-KTI + 1 

so 

188 



LTER ( I ) *10 

so 

189 

190 


J-J-10 

so 

190 



IF (J) 22#24#?3 

so 

191 


22 

LTER ( I)-10+J 

so 

192 



GO TO 24 

so 

193 


23 

CONTINUE 

so 

194 

195 

24 

DO 39 LL-ljKTI 

so 

195 



Nl-LTEMLL) 

so 

196 



DO 34 I-1>N1 

so 

197 


C 

CALL LEAST SQUARES POLYNOMIAL SMOOTHING ROUTINE 

so 

198 



CALL LSQSMO (THE TA# YUSM0, V, YN,DUM, YPPU/ NP, JMAXL# JMAXU* NOS F> VT, EP S# 

so 

199 

200 


1 1 ERR ) 

so 

200 


81 



LISTING OF DECK! SMOXY 
CARD NO* 


PAGE 6 


201 

205 

210 

215 

220 

225 

230 

235 

240 


IF ( IFRR*NE* 0 ) RETURN 
C COMPUTE ERROR TERM 

SUMY(I) «0*0 
DO 25 J «1 *NP 

25 SUMY (I) •SUMY(I)4(YPPU( J)-YPP( J) )**2 
Jl-Jl+1 

IF ( (I.LE.3).AN0.CLL.EQ.1>) GO TO 26 
IF (I.EQ.I) GO TO 26 

' ip . S uHr'n" u "u-n! l “I™L I ’ i C0KVE ' 6E,,C6 ° F »«« ««" 

26 oo 31 j.iJSf *" A,S F °* NEXT ITE «* T, " N 

WK { J » I ) »Y PPU ( J ) 

IF (LL. EO.l. AND. I.EQ.I) YPPS { J ) -YPPU( J ) 

YPP(J)-YPPU(J> 

CC-YU?MO( J) 

IF ( Jl-2 ) 29>28»27 

27 AA-YNU )-YUSMO(J) 

B3-A(J, 1 )— A ( 2 ) 

T1«SIGN(1.,AA) 

T2-SIGN(1.,BB) 

IF (Tl. EQ.T2.0R.AA.EQ.BB) GO TO 28 

GO S TO t 3o" A,J,2> ~ BB * (YUSMO<J, ' A(J ' 2n/(AA ~ BB) 

28 YUSHOt J )-0.5*(YUSMO(J) ♦YN( J ) ) 

GO TO 30 

29 YUSMO( J )« YN( J ) 

30 A(J,1)-YN(J) 

31 A(J,2)-CC 
GO TO 33 

32 NTER-I-1 
ICON-2 
GO TO 36 

33 NTER-I 

C CHECK FOR CONVERGENCE BASED ON INPUT EPS 

IF ( SUMY (I).LE.EPS) GO TO 35 

34 CONTINUE 
GO TO 36 

35 ICON-1 
C 


SO 201 
SO 202 
SO 203 
SO 204 
SO 205 
SO 206 
SO 207 
SO 208 
SO 209 
SO 210 
SO 211 
SO 212 
SO 213 
SO 214 
SO 215 
SO 216 
SO 217 
SO 216 
SO 219 
SO 220 
SO 221 
SO 222 
SO 223 
SO 224 
SO 225 
SO 226 
SO 227 
SO 228 
SO 229 
SO 230 
SO 231 
SO 232 
SO 233 
SO 234 
SO 235 
SO 236 
SO 237 
SO 238 
SO 239 
SO 240 
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CARD NO* 
241 

2*5 

250 

255 

260 

265 

270 

275 

280 


C PRINT SECOND DERIVATIVES GENERATED DURING SMOOTHING PROCESS SO 241 

C SO 242 

36 IF ( IPRINT.NE.O) GO TO 38 SO 243 

WRITE (JVRITE»eO) TITLE SO 244 

DO 37 J»l*NP SO 245 

37 WRITE (JWRITE»81! J> YSHO< J > r ( UK U • I) • 7-1* MYFP ) SO 246 

WRITE (JWRITE/82) CSUMY( I ),1»1?HTER ) SO 247 

36 IF (IPRINT.NE.O) WRITE (JWRITE*79) LL> (SUHY C I ) * I-l.NTER ) SO 246 

HTEP.-MTER+NTER SO 249 

IF ( ICON* ME * 0 ) GO TO 40 SO 250 

39 CONTINUE SO 251 

40 IF (ICON.EO.O) WRITE (JWRITE»83) MTER SO 252 

IF ( ICON* EQ*1 ) WRITE <JWRITE,84) HTER SO 253 

IF ( ICON* EQ* 2 ) WRITE <JWRITE*05> MTER SO 254 

C SO 255 

C COMPUTE SMOOTHED SECOND DERIVATIVE USING LEAST SQUARES SO 256 

C CUBIC SPLINE SO 257 

C SO 256 

DO 41 I ■ 1 » N P SO 259 

41 DUN ( I )-DF SO 260 

C CALL LEAST SQUARES CUBIC SPLINE ROUTINE SO 261 

CALL CSDS (LMX,NP*THETA,YPPU,DUK,FL0AT{NP),-1,A,WK,IERR» SO 262 

IF (IERR.NE.O) GO TO 71 SO 263 

C COMPUTE SECOND DERIVATIVE SO 264 

SUM-0.0 SO 265 

DO 44 I ■ 1 » N P SO 266 

IF (I.EQ.NP) GO TO 42 SO 267 

YPP(I)-A(I»1) SO 268 

GO TO 43 SO 269 

42 DELTA -THETAd J-THETA (I— 1) SO 270 

YPP( I)» (( A(I-l»4)*DELTA+A(I-lj-3) )*DELTA+A< 1-1*2) )*DELTA*AC 1-1*1) SO 271 

43 SUM-SUM-MYPPUII )— YPP ( 1 ) ) *42 SO 272 

44 YPPU(I) -YPPS(I) SO 273 

WRITE (JWRITE,G8) SUM SO 274 

C SO 275 

C COMPUTE MEW Y COORDINATES FROM SMOOTHED SECOND DERIVATIVES SO 276 

C SO 277 

CALL YMEW (THETA* YPP* YSM0*NOSE» HP* YUS H 0 ( 1 ) * YllSMO(NOSE ) * YUSMO (NP ) > E SO 276 

IPS* DUM* WK» JHRITE*1) SO 279 

r SO 280 
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281 

C 

CHECK NEW Y COORDINATES FOR SMOOTHNESS 

SO 

281 


C 


so 

282 


C 

CALL LEAST SQUARES POLYNOMIAL ROUTINE 

so 

283 



DO 45 I ■ 1 > N P 

so 

284 

285 

45 

A(I,1)«1.0 

so 

285 



CALL LSOSMO ( THETA/ YSMO, k, YN> DUM> YPPS > NP> 1 r NP, NOS E,WT, EPS* IERC ) 

so 

2C6 



IF (IERR.NE.O) RETUPN 

so 

287 


C 

COMPUTE ERROR TERMS 

so 

288 



SUM1-0.0 

so 

289 

290 


SUM2-0. 0 

so 

290 



DO 46 I-1»NP 

so 

291 



A(I,1)»YSM0(I)-YN(I) 

so 

292 



A(I»2)"YPP(I)— YPPS(I) 

so 

293 



SUM1-SUM1+A(I,1)**2 

so 

294 

295 

46 

SUM2-SUM2+A(I,2)**2 

so 

295 


C 


so 

296 


c 

COMPUTE FIRST DERIVATIVE FROM SMOOTHED SECOND DERIVATIVE 

so 

297 


c 


so 

298 



Nl-NP-1 

so 

299 

300 


DO 47 I ■ 1 » N1 

so 

300 



DELTA»THETA(I+1)-THETA(I) 

so 

301 


47 

YN(I)«-YPP(I)*DELTA/3.-YPP(I+l)*DELTA/6.+(YSM0(I+I)-YSM0(I)) /DELTA 

so 

302 



DELTA-THETA (NP)-THETA(Nl) 

so 

303 



YN(NP)-YPP(N1 )*DELTA/6.+YPP(NP)*DELTA/3.+(YSM0(NP)-YSM0(Nl )) /DELTA 

so 

304 

305 

C 


so 

305 


C 

PRINT SUMMARY OF SMOOTHED AND UNSMOOTHED DATA 

so 

306 


c 


so 

307 


48 

WRITE ( JWRITE»86) TITLE 

so 

308 



DO 53 I - 1 » NP 

so 

309 

310 


YPSCI)-YN(I) 

so 

310 



IF (THETA(I).LE.O.) YNCI)-YN(I) 

so 

311 



Tl-APS(THETAd)) 

so 

312 



IF (T1.GT.PI2) GO TO 49 

so 

313 



GP«C0NS*SIN(T1> 

so 

314 

315 


GPP-C0NS*CQS(T1) 

so 

315 



GO TO 50 

so 

316 


49 

DIF"C0SH(Tl-PI2) 

so 

317 



DELTA-SINH(T1-PI2) 

so 

318 



GP-CONS/DIF 

so 

319 

320 


GPP— CONS + DELTA/(DIF*DIF) 

so 

320 
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321 

325 

330 

335 

340 

345 

350 

355 

360 


50 


51 


52 


53 


C 

C 

C 

C 


C 


C 


IF (I.EQ.NOSE) GO TO 51 
DYDX-YN(I)/GP 

DY2DX-( YPP(I)*GP-YN(I)*GPP)/<GP'>*3) 
CUPV-AB$(DY2DX)/(SQRT(1«+DYDX**2)*$3) 

GO TO 52 
DYDX-O, 1E99 
DY2DX-0 . 1 E99 
CURV«C0NSmN(I)**2) 

RLE-1. /CURV 

OELTA-THETA(I)*RAD 

DIF-Ym-YSMO(I) 

YPPSd)-YPP(I) 

WRITE ( JWRITE»87) I »DELTA» X ( I ) , Y { I ) , YUSHO ( I ) , YSMO( I ) 
1P( I),DYDX,DY2DX,CURV 
WRITE CJVRITE»89) RLE 

CHECK FOR INTERSECTION OF UPPER AND LOWER SURFACES 

OFFINE ITERATION INTERVAL 
KRT-1001 
N1-24KRT 
TE-THET A ( NP ) 

TN — THETA(l) 

IF (TN.LT.TE) TE-TN 
DIF-TE/FL0AT(KRT-1> 

BB-0.5+DIF 

AA-0.85*TE 

YLl-YUl-YSHO(NOSE) 

TP-TN-0.0 
J 1-NOSE 
J2-2 

DO-LOOP TO SEARCH FOR INTERSECTION 
DO 59 1-2, N1 
IF (TP.LE.AA) TN-TN+OI F 
IF (TP.GT.AA) TN-TN+BB 
IF (TN.GT.TE) GO TO 61 
TI-TN 

FIND UPPER SURFACE Y-COORDINATE AT THETA - TN 
DO 54 K -J 1,NP 
J-K-l 


SO 321 
SO 322 
SO 323 
SO 324 
SO 325 
SO 326 
SO 327 
SO 326 
SO 329 
SO 330 
SO 331 
SO 332 

>DIF,YPS(I ),YP SO 333 
SO 334 


SO 335 
SO 336 
SO 337 
SO 336 
SO 339 
SO 340 
SO 341 
SO 342 
SO 343 
SO 344 
SO 345 
SO 346 
SO 347 
SO 346 
SO 349 
SO 350 
SO 351 
SO 352 
SO 353 
SO 354 
SO 355 
SO 356 
SO 357 
SO 356 
SO 359 
SO 360 
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361 


IF (TI.GE.THETA(J) . AND.TI.LE.THETA(J+1) ) GO TO 55 


SO 

361 


54 

CONTINUE 


SO 

362 


55 

DELTA-THETA(J+1)-THETA( J) 


SO 

363 



T2-THETA( J + D-TI 


SO 

364 

365 


Tl-TI-THETACJ ) 


SO 

365 



YU2-YPPS( J)* (12**3/ (6. ♦DELTA )-T2*DELTA /6. )+YPPS( j+l)* (11**3/ (6. *DE 

SO 

366 



lLTA)-Tl*DELTA/6. )+(YSHO(J )$T2+YSH0( J+l DTI ) /DELTA 


SO 

367 



Jl-J 


SO 

368 



IF (J1.LT.N0SE) Jl-NOSE 


SO 

369 

370 

C 

FIND LOWER SURFACE Y-COORDINATE AT THFTA - TN 


so 

370 



TT— TN 


so 

371 



DO 56 K «J 2/NOSE 


so 

372 



J-NOSE+l-K 


so 

373 



IF (TI.GE.THETA(J) ,AND.TI.LE.THETA( J+l) ) GO TO 57 


so 

374 

375 

56 

CONTINUE 


so 

375 


57 

DELTA-THETA (J+l )-THETA(J) 


so 

376 



T2-THETA( J+1)-TI 


so 

377 



Tl-TI-THETAU) 


SO 

378 



YL2«YPPS( J )T(T2**3/(6.«DELTA)-T2-i'DELTA/6. ) + YPPS(J+l)*(Tl**3/(6.*DE 

so 

379 

3*0 


lLTA)-Tl*DELTA/6. )+< YSHOfJ )*T2+YSH0( J+l )*T1 ) /DELTA 


so 

380 



J2-N0SE+1-J 


SO 

381 



IF (J2.LT.2) J2-2 


so 

382 


C 

COMPUTE THETA FOR INTERSECTION OF STRAIGHT LINE 

SEGMENTS THRU 

so 

363 


C 

LAST TWO POINTS ON EACH SURFACE 


so 

384 

385 


CC- ( YU2-YU1-YL2+YL1 ) / ( TN-TP ) 


so 

305 



IF (ABS(CC).LT.l.E-lO) GO TO 58 


so 

306 



T1»(YL1-YU1)/CC+TP 


so 

387 



IF (I.EQ.2) GO TO 58 


so 

386 


C 

CHECK TO SEE IF INTERSECTION THETA IS BETWEEN THIS TN-VALUE 

so 

389 

390 

C 

AND THE PREVIOUS TN-VALUE 


so 

390 



IF (T1.GE.TP.AND.T1.LE.TN) GO TO 60 


so 

391 


C 

CONTINUE TO NEXT TN-VALUE 


so 

392 


58 

YU1-YU2 


so 

393 



YL1-YL2 


so 

394 

395 


TP-TN 


so 

395 


59 

CONTINUE 


so 

396 



GO TO 61 


so 

397 


60 

IF (Tl.GE.TE) GO TO 61 


so 

390 


C 

IF INTERSECTION OCCURS WRITE ERROR MESSAGE AND 

RETURN TO 

so 

399 

400 

C 

CALLING PROGRAM 


so 

400 
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401 

405 

410 

415 

420 

425 

430 

435 

440 


C 

C 

C 

61 


62 


63 

64 

65 

66 
C 


67 

68 


Tl«Tl*RAO 

WRITE ( JWRITE>72) T1 

IERR-1 

RETURN 

FIND LOCATIONS WHERE OY/DX-O. 

KRT-0 
Nl-NP-1 
DO 66 I«1,N1 

DELTA-THETA (I + U-THETA Cl) 

AA-CYPP (D-YPPCI+l) )/(2.*DELTA) 

BB- ( YPP C 1 + 1 )*THETAC I l—YPP C I )* THETA C 1+1) ) / DELTA 
CC«CYPPCI)*THETACI+l)**2-YPPCI+l)*THETACI>+*2)/C2.*DELTA>+<YPPCI+l 
l)-YPP(I))*DELTA/6.-(YSHO(I+l)-YSNO(I))/PELTA 
GP-BB*BB-4.*AA*CC 
IF (GP) 66,62,62 
GP-SQRT ( GP) 

Tl-(-BB+GP)/(2.*AA) 

T2-C— BB-GP)/C2.*AA) 

IF (Tl.GE.THETACI) . AND.T1 .LE.THETACI+1) ) GO TO 63 
GO TO 64 
KRT-KRT+1 
WKCKRT, 1)-T1 

IF CT2» GE.THETACI). AND.T2.LE.THETACI+1 ) ) GO TO 65 

GO TO 66 

KRT-KRT ♦1 

WKCKRT, 1)-T2 

CONTINUE 

IF CKRT.EQ.O) GO TO 70 

FIND X/C AND Y/C WHERE DY/DX-O. 

00 69 I -1,KRT 

CALL INTER CWKCI,1),WKCI»2)*NP, THETA, X,1»KTI,0) 

DO 67 J-1,N1 

Jl-J 

J2-J+1 

IF C WK C I, 1 ) • GE • THETA CJ ) . AND. WK ( 1, 1 ) «LE. THETA C J+l ) ) GO TO 68 
CONTINUE 

AA-THETAC J2 )-WKCI, 1 ) 

BB-WKCI,!)— THETACJ1) 


SO 401 
SO 402 
SO 403 
SO 404 
SO 405 
SO 406 
SO 407 
SO 408 
SO 409 
SO 410 
SO 411 
SO 412 
SO 413 
SO 414 
SO 415 
SO 416 
SO 417 
SO 418 
SO 419 
SO 420 
SO 421 
SO 422 
SO 423 
SO 424 
SO 425 
SO 426 
SO 427 
SO 426 
SO 429 
SO 430 
SO 431 
SO 432 
SO 433 
SO 434 
SO 435 
SO 436 
SO 437 
SO 438 
SO 439 
SO 440 
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441 

445 

450 

455 

460 

465 

470 

475 

480 


69 

70 

C 

C 

C 


C 

C 

c 

71 
C 

72 

73 


74 

75 

76 

77 

78 

79 

80 


81 

82 

83 

84 


WK(I*1)-WK(I*1)*RAD SO 441 

DELTA»THETA<J2)-THETA(J1) SO 442 

WKCI*3)»YPP(Jl)*{AA**3/C6.*DELTA>-AA*DELTA/6.)+YPPCJ2)*(BBP*3/(6.* SO 443 

lDELTA)-BB*DELTA/6« )♦( YSMD( J1)*AA*YSH0(J2)*BB) /DELTA SO 444 

CONTINUE SO 445 

IF (KRT.GT.O) WRITE (JWRITE*90) (WK{I,2)*WK<I*3)*VK(I*1)*I-1*KRT> SO 446 

SO 447 

PRINT RESULTS OF SMOOTHNESS CHECK SO 448 

SO 449 

IF (ITER.EQ.O) RETURN SO 450 

WRITE ( JWRITE* 91 ) TITLE»DF SO 451 

WRITE ( JWRITE*92 ) { I, A (I* 1)* A (I* 2)* I-1*NP) SO 452 

WRITE ( JWRITE* 93 ) SUM1*SUM2 SO 453 

RETURN SO 454 

SO 455 

PRINT WARNING MESSAGE IF ERROR OCCURRED IN CALL TO CSDS SO 456 

SO 457 

WRITE <JWRITE*94) IERR SO 458 

RETURN SO 459 

SO 460 

FORMAT ( /5X* 108HERR0R MESSAGE SMOOTHING PROCESS RESULTED IN SO 461 

IAN INTERSECTION OF THE UPPER AND LOWER SURFACES AT THETA -*F10.3> SO 462 
FORMAT ( 1H1* IX* 7HTITLE— *2X*8A10//12X» 62H--CHECK OF FIRST DERIVATI SO 463 


IVES GENERATED FROM IOP-2 INPUT DATA— ///9X* 1HI* 5X*12HDY/DT { INPUT)# SO 464 
24X*llHDYm(CSDS)*8X,3HDIF»6X,13HDY/DT(LS0SM0)*8X*3HDIF/) SO 465 

FORMAT (5X*I5*5(5X*F10.6)) SO 466 

FORMAT { /25X* 16HSUM OF SQUARES • * 4X»F10.6* 20X*F10.6) SO 467 

FORMAT ( / 10X* 25H0UTPUT FROM CSDS SELECTED) SO 468 

FORMAT ( /10X* 27H0UTPUT FROM LSQSMO SELECTED) SO 469 

FORMAT <1H1*1X*7HTITLE— *2X*8A10//30X*53H— SUM OF SQUARES GENERATE SO 470 
ID DURING SMOOTHING PROCESS—) SO 471 

FORMAT ( SIX* 15* 10F12»7 ) , SO 472 

FORMAT <1H1*1X*7HTITLE~»2X*8A10//30X»67H— SECONb DERIVATIVES W/R SO 473 
1THETA GENERATED DURING SMOOTHING PROCESS— /4X»1HI*5X*5HTHETA*10(5X SO 474 
2*6HDY2/DT)/) SO 475 

FORMAT (I5*F10.2*10F11.6) SO 476 

FORMAT ( / IX* 14HSUM OF SQUARES* ( 10F11. 6) ) SO 477 

FORMAT (/3X*41HSM00THING PROCESS HAS NOT CONVERGED AFTER* 14* IX* 10H SO 478 
ITERATIONS) SO 479 

FORMAT C /3X» 33HSM00THING PROCESS CONVERGED AFTER* 14* IX* 10HITERATI0 SO 480 
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481 INS) SO 481 

85 FORMAT { /3X*41HSM00THING PROCESS BEGAN OSCILLATING AFTER* 14* IX* 10H SO 482 

1ITERATIONS ) SO 483 

86 FORMAT (1H1*1X*7HTITLE— #2X»8A10//48X»28H— SMOOTHING OUTPUT SUMMAR SO 484 

485 1Y— //4X*1HI»5X,5HTHETA»5X*3HX/C*7X,3HY/C*7X*4HYT/C*5X*6HYSM0/C*4X* SO 485 

25HDELTA*7X»3HYPS#6X»4HYPPS»8X*5H0Y/DX»7X»11H0(0Y/DX) /0X*6X» SO 486 

19HCURVATURE/) SO 487 

87 FORMAT {I5,F10.2*7F10.6»3E15.6) SO 488 

88 FORMAT </3X*58H$UM OF SQUARES FROM LEAST SQUARES CUBIC SPLINE SMOO SO 489 

490 1THING -#E12.4) SO 490 

89 FORMAT ( / 3X* 22HLEA0ING-EDGE RADIUS/C»*F10.6> SO 491 

90 FORMAT ( / 3X» 16HDY/DX-0 . AT X/C-*F 10. 6* 5X, 4HY/C-* F10. 6* 5X*6HTHETA»* SO 492 

1F10.3) SO 493 

91 FORMAT (1H1#1X*7HTITLE~#2X#8A10//12X»29HCHECK OF SMOOTHEO COOROIN SO 494 

495 1ATES*3X»3HDF-»F10.6//9X,1HI»5X»20H(YSM0/C-CHECK VALUE)*7X* SO 495 

218H(YPPS— CHECK VALUE)/) SO 496 

92 FORMAT (5X*I5*10X*F10.6*15X,F10.6) SO 497 

93 FORMAT {/5X,15HSUM OF SQUARES-#F10.6*15X*F10.6) SO 498 

94 FORMAT { /3X»21HINPUT ERROR — POINT »T3»18H IS NOT INCREASING/) SO 499 

500 END SO 500- 
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LISTING 
CAPO NO 
1 

5 

10 

15 

20 

25 

30 

35 

40 


OF DECK* YNEW 


PAGE 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


1 

c 

c 

c 

c 

c 

2 


c 

c 

c 

c 


c 

c 


1RITE, IP T) 


THETA AT THE NOSE (IPT-1) 


CODED BY ~ HARRY MORGAN NAS A/ L ARC /TAD/ AAB 


CALLING PROGRAM 

DIMENSION THETA(l), YPP(l), YU), DUMC1), WK(1) 

INITIALIZE ITERATION PARAMETERS 

NMAX-20 
Nl — 1 
DELTA-0, 

T1 -THETA < NOSE )-THETA (NOSE-1) 
T2-THETA(N0SE+1)-THETA(N0SE) 

DO 1 I-1,NP 
DUM ( I ) - YP P ( I ) 


THE NOSE IS OBTAINED 
Nl-Nl+1 

IF (NUGT.NMAX) GO TO 11 
IF (IPT • E Q« 1 ) GO TO 3 

IF I PT -0# COMPUTE UPPER AND LOWER SURF; 
CONCURRENTLY 

CALL INVY (THETA, DUM, 1,NP,Y, YLTE, YUTE, WK ) 
COMPUTE DIFFERENCE BETWEEN OUTPUT AND I 
AT THE NOSE 

DIF-Y(NO$E)-YNOSE 
GO TO 4 

IF IPT-1, COMPUTE UPPER AND LOWER SURFi 
CONSECUTIVELY 


> YUTE# EPS# DUN# WK#JV 

YW 

1 


YW 

2 


YW 

3 

ITERATION 

YW 

4 

AT THE NOSE 

YW 

5 

DERIVATIVE W/R TO 

YW 

6 


YW 

7 


YW 

8 

1982 

YW 

9 


YW 

10 

: BY 2*NP IN 

YW 

11 


YW 

12 


YW 

13 


YW 

14 


YW 

15 


YW 

16 


YW 

17 


YW 

18 


YW 

19 


YW 

20 


YW 

21 


YW 

22 


YW 

23 


YW 

24 

TO SECOND 

YW 

25 

E OPTION AT 

YW 

26 


YW 

27 


YW 

28 


YW 

29 


YW 

30 


YW 

31 

COORDINATES 

YW 

32 


YW 

33 


YW 

34 

Y/C COORDINATE 

YW 

35 


YW 

36 


YW 

37 


YW 

36 

COORDINATES 

YW 

39 


YW 

40 
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41 

3 

CALL INVY (THETA#DUM* NQSE#NP# Y# YNOSE* YUTE* WK ) 

YW 

41 



CALL INVY ( THETA* DUM# 1#NQ$E* Y* YLTE* YNOSE* WK ) 

YW 

42 


C 

COMPUTE DIFFERENCE BETWEEN UPPER AND LOWER SURFACE FIRST 

YW 

43 


C 

DERIVATIVES AT THE NOSE 

YW 

44 

45 


AA— DUM<N0SE)*T2/3 # -DUM(N0SE+l)AT2/6.+<Y(N0SE+l)-Y{N0SE) >/T2 

YW 

45 



BB-DUMC NOSE-1 )*T1/6.4DUM< NOSE )*T1/3.MY(N0SE)-Y(N0SE-1) >/Tl 

YW 

46 



DIF-AA-BB 

YW 

47 


C 

CHECK FOR CONVERGENCE 

YW 

48 


4 

IF (ABS(DIF).LE.EPS) GO TO 9 

YW 

49 

50 

C 

COMPUTE ADJUSTMENT VALUE TO SECOND DERIVATIVE 

YW 

50 



IF ( Nl» EQ • 0 ) GO TO 6 

YW 

51 



IF (DIF.EQtDIFP) GO TO 5 

YW 

52 



SP»( DELTA-DELTAP ) / ( DIF-DIFP ) 

YW 

53 



DELTAP-DELTA 

YW 

54 

55 


DIFP-DIF 

YW 

55 



DELTA-DELTA-DIF*SP 

YW 

56 



GO TO 7 

YW 

57 


5 

DELTA-0.5*(0ELTA+DELTAP) 

YW 

58 



GO TO 7 

YW 

59 

60 

6 

DELTAP-DELTA 

YW 

60 



DIFP-DIF 

YW 

61 



DELTA-DELTA+OIF 

YW 

62 


c 

ADD ADJUSTMENT VALUE TO SECOND DERIVATIVE 

YW 

63 


7 

DO 8 I- 1* NP 

YW 

64 

65 

8 

OUM(I)-YPP(I)+DELTA 

YW 

65 


c 

CONTINUE TO ITERATE 

YW 

66 



GO TO 2 

YW 

67 


c 


YW 

66 


c 

PRINT CONVERGENCE MESSAGE 

YW 

69 

70 

c 


YW 

70 


9 

WRITE ( JWRITE# 14) Nl* DELTA 

YW 

71 


c 

REDEFINE THE SECOND DERIVATIVE 

YW 

72 



DO 10 I ■ 1#NP 

YW 

73 


10 

YP P ( I ) - DUM ( I ) 

YW 

74 

75 


IF (IPT.EQ.l) GO TO 12 

YW 

75 



GO TO 13 

YW 

76 


C 


YW 

77 


C 

PRINT NON-CONVERGENCE MESSAGE 

YW 

78 


C 


YW 

79 

60 

11 

Nl-Nl-1 

YW 

80 
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ei 


WRITE t JWRITE* 15 ) N1 

YW 

81 


C 


YW 

82 


c 

COMPUTE NEW UPPER AND LOWER SURFACE Y/C COORDINATES CONCURRENTLY 

YW 

83 


c 


YW 

84 

85 

12 

CALL INVY (THETA>YPP»1>NP*Y»YLTE>YUTE»WK) 

YW 

85 


C 


YW 

86 


C 

RETURN TO CALLING PROGRAM 

YW 

87 


C 


YW 

88 


13 

RETURN 

YW 

89 

90 

C 


YW 

90 


14 

FORMAT (/3X»88HITERATI0N PROCEDURE TO COMPUTE INCREMENTAL ADJUSTHE 

YW 

91 



1NT TO SECOND DERIVATIVE CONVERGED IN >I3»23H ITERATIONS AND DELTA 

YW 

92 



2-»E12.A> 

YW 

93 


15 

FORMAT (///10X,<r0HWARNING THE FOLLOWING ERROR HAS 0CCURRED//3X>95H 

YW 

94 

95 


1 ITER ATI ON PROCEDURE TO COMPUTE INCREMENTAL ADJUSTMENT TO SECOND DE 

YW 

95 



2RIVATIVE DID NOT CONVERGE IN #I3,11H ITERATIONS) 

YW 

96 



END 

YW 

97- 
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LISTING OF DECK* INVY 


PAGE 


1 


CARD NO. 


1 


SUBROUTINE INVY ( X, YPP#NS# NE* Y, Y5TART, YEND* A ) 



IV 

1 


C 




IV 

2 


c 

THIS ROUTINE COMPUTES Y VALUES FROM KNOWN SECOND 

DERIVATIVES 

AND 

IV 

3 


c 

END CONDITIONS 



IV 

4 

5 

c 




IV 

5 


c 

COOED BY — HARRY MORGAN NASA/LARC/TAD/ A AB 

1982 


IV 

6 


c 




IV 

7 


c 

IN CALLING PROGRAM DIMENSION X# YPP# AND Y BY 

NE AND A BY 

2*NE 

IV 

6 


c 




IV 

9 

10 


DIMENSION X(l>, YPP ( 1 ) > Y<1)* A(NE*2) 



IV 

10 


c 




IV 

11 


c 

SET END CONDITIONS 



IV 

12 


c 




IV 

13 



Y(NS )«Y START 



IV 

14 

15 


YCNE )*YEND 



IV 

15 


c 




IV 

16 


c 

PERFORM FORWARD ELIMINATION 



IV 

17 


c 




IV 

18 



A(1,1)«Y$TART 



IV 

19 

20 


A(l*2)-0.0 



IV 

20 



N-NE-NS+1 



IV 

21 



Nl-N-1 



IV 

22 



DO 1 I* 2* N1 



IV 

23 



J-NS+I-1 



IV 

24 

25 


H1-X(J)-X< J-l) 



IV 

25 



H2*X ( J+l )-X ( J ) 



IV 

26 



C»(Hl*YPP<J-l)f6.4(Hl+H2)*YPP<J)/3.+H?*YPP( J+l)/6 

•)*H1+H2 


IV 

27 



D— H2*( A(I-1*2)U.)-H1 



IV 

28 



A { I* 2) ■ HI /D 



IV 

29 

30 

1 

AC I* 1)» (C~H2*At I— 1* 1) ) / D 



IV 

30 


c 




IV 

31 


c 

PERFORM BACK SUBSTITUTION 



IV 

32 


c 




IV 

33 



J-NE 



IV 

34 

35 


DO 2 I* 2* N 1 



IV 

35 



J-J-l 



IV 

36 



N-N-l 



IV 

37 


2 

Y(J)-A(N»l)-A(Nf 2)*Y{ J+l) 



IV 

38 


c 




IV 

39 

AO 

c 

RETURN TO CALLING PROGRAM 



IV 

40 
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*1 


RETURN 

END 


IV 

IV 

IV 


41 

42 
43 - 
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PAGE 


1 


CARD NO. 


1 


SUBROUTINE LSOSHO ( X# Y» W* YN# YP> YPP*N»IMAX>JNAX*NOSE>WT*EPS»IERR) 

LM 

1 


C 



LH 

2 


C 

THIS SUBROUTINE IS USED TO SMOOTH X AND Y BY CONSECUTIVELY FITTING 

LM 

3 


C 

A LEAST SQUARES POLYNOMIAL OF DEGREE 4 THRU 7 POINTS AT A TIME 

LH 

A 

5 

C 



LH 

5 


C 

CODED BY — HARRY MORGAN NASA/LARC/TAD/ AAB 

1962 

LH 

6 


c 



LH 

7 



DIMENSION XU), Y(1 ), Wd), YNd), YPd), YPPU) 


LH 

8 


c 



LH 

9 

10 


DIMENSION XIC7), YIC7), VW<7>» A(5,6), B (5 > 


LH 

10 


c 



LH 

11 



COMMON /INOUT/ JREAD, JWRITE»IPRINT 


LH 

12 


c 



LH 

13 


c 

CHECK NOSE REGION FOR SYMMETRY 


LH 

1A 

15 

c 



LH 

15 



ISYM-1 


LH 

16 



DO 1 I«l» 3 


LH 

17 



IF (ABS (X(NOSE-I )+X(NOSE+I))«GT«EPS) TSYM-0 


LH 

18 



IF (ABS(YCNOSE-I)+Y(NOSE+I)).GT.EPS) ISYM-0 


LH 

19 

20 

1 

CONTINUE 


LH 

20 



IERR-0 


LH 

21 


c 



LH 

22 


c 

FIT A LEAST SQUARES POLYNOMIAL OF DEGREE 4 THRU 7 

POINTS 

LH 

23 


c 



LH 

2A 

25 


DO 14 I-1,N 


LH 

25 


c 

LOAD 7 POINTS FOR LEAST SQUARES POLYNOMIAL FIT 


LH 

26 



IF (I.LT.4) GO TO Z 


LH 

27 



IF (I.GT.N-3) GO TO 3 


LH 

28 



Jl-I-3 


LH 

29 

30 


J2-I+3 


LH 

30 



GO TO 4 


LH 

31 


2 

Jl-1 


LH 

32 



J2-7 


LH 

33 



GO TO 4 


LH 

3A 

35 

3 

Jl-N-6 


LH 

35 



J2-N 


LH 

36 


A 

KK-0 


LH 

37 



IF (ISYM.EQ.O) GO TO 7 


LH 

38 



IF (I. GT. NOSE-3. AND. I. LE. NOSE) GO TO 5 


LH 

39 

AO 


IF (I.LT.N0SE+3.AND.I.GT.N0SE) GO TO 6 


LH 

AO 
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41 


GO TO 7 

LM 

41 


5 

J1-N0SE-6 

LM 

42 



J2-N0SE 

LM 

43 



GO TO 7 

LM 

44 

45 

6 

Jl-NOSE 

LM 

45 



J2-N0SE+6 

LM 

46 


7 

DO 8 L-J1.J2 

LM 

47 



J«L 

LM 

48 



IF (I.LE.NOSE) J-J1+42-L 

LM 

49 

50 


KK-KK+1 

LM 

50 



WW(KK)-1.0 

LM 

51 



IF (I.EQ.J) WW(KK)>W(I) 

LM 

52 



IF (J.EQ. IMAX.OR.J.EQ.JNAX) WU(KK )-WT*W(J ) 

LM 

53 



XKKK)-X(J) 

LM 

54 

55 

8 

YHKK)»Y( J> 

LM 

55 



IF (I.LE.4) HW(7)»7.*W(1) 

LM 

56 



IF (I.GE.N-3) WW(7)»7.*W(N) 

LM 

57 


C 

COMPUTE LEAST SOUARES MATRIX 

LM 

58 



DO 9 l« 1» 5 

LM 

59 

60 


DO 9 J-1.6 

LM 

60 


9 

A(L»J)«0. 

LM 

61 



DO 11 K-1,7 

LM 

62 



Tl-1. 

LM 

63 



DO 11 J-1.5 

LM 

64 

65 


T2-T1 

LM 

65 



DO 10 L"l»5 

LM 

66 



A(J,L)-ACJ,L)+T2*WW(K) 

LM 

67 


10 

T2-T2*XI(K) 

LM 

68 



A(J» 6)"A( J#6)-YI(K)*T1*WW(K) 

LM 

69 

70 

11 

Tl-T1*XI(K) 

LM 

70 


c 

SOLVE FOR COEFFICIENTS OF LEAST SQUARES POLYNOMIAL 

LM 

71 



DO 12 K-1,4 

LM 

72 



DO 12 J«K,4 

LM 

73 



T1«A(J+1»K)/A(K»K) 

LM 

74 

75 


DO 12 L-K»6 

LM 

75 


12 

A(J-M»L )-A(J+l,L)-A(K»L>*Tl 

LM 

76 



B(5)— AC5,6)/A(5,5) 

LM 

77 



DO 13 L-2»5 

LM 

78 



K-6-L 

LM 

79 

80 


B C K 1 — ACK,6)/ACK,K) 

LM 

80 
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3 


ei 


05 


90 


K1*K+1 

DO 13 J *K 1# 5 

13 0(K)-B(K)-B(J)*A(Kf4)/A(KfK) 

C COMPUTE NEW Y f FIRST » AND SECOND DERIVATIVE 

YN(I)*(((B(5)*X(I)+B(4))*X(I)+B(3))*X(I)+B(2))*X(I)+B(1) 
YP(I)-C (4.*B<5)*X<I)*3.4B(4))*X<I)+2.*B<3) )+X(I)*B(2) 
YPP(I)-(12.*9<5)*X<I>+6.*B(4) )4X (I ) *2.*B C 3 ) 

14 CONTINUE 

IF (ISYM.EO.O) RETURN 

YN ( NOS E ) ■ 0 .0 

YPP ( NOS E ) "0* 0 

YP (NOSE ) ■ 1 • 0 

RETURN 

END 


LN 

LM 

LN 

LN 

LN 

LN 

LN 

LN 

LN 

LN 

LN 

LN 

LN 

LM 


61 

82 

83 

84 

85 
66 
87 

86 

89 

90 

91 

92 

93 
94- 
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PAGE 

1 

CARD NO. 






1 


SUBROUTINE 

CSOS IMAX/IX/X/F/DF/S/IPT/COEF/WK/IERR) 

CS 

1 


C******* **************************************************************** cs 

2 


c+ 



* cs 

3 


c* 

PURPOSE * 


* cs 

4 

5 

c* 


SUBROUTINE CSDS FITS A SMOOTH CUBIC SPLINE TO A 

* cs 

5 


c* 


UNIVARIATE FUNCTION. DATA MAY BE UNEQUALLY SPACED* 

* cs 

6 


c* 



* cs 

7 


c* 

USE i 


* CS 

e 


c * 


CALL CSD$(hAX#lX*X#F#DF»S#IPT»COEF»WK>IERR) 

* cs 

9 

10 

c* 



* cs 

10 


c* 

MAX 

INPUT INTEGER SPECIFYING THE MAXIMUM NUMBER OF DATA 

* cs 

11 


c* 


POINTS FOR THE INDEPENDENT VARIABLE. 

* cs 

12 


c* 



* CS 

13 


c+ 

IX 

INPUT INTEGER SPECIFYING THE ACTUAL NUMBER OF DATA 

* cs 

14 

15 

c* 


POINTS FOR THE INDEPENDENT VARIABLE. IX9NAX. 

* cs 

15 


c* 



* cs 

16 


c+ 

X 

ONE-DIMENSIONAL INPUT ARRAY DIMENSIONED AT LEAST 

* cs 

17 


c* 


IX IN THE CALLING PROGRAM. UPON ENTRY TO CSDS» 

* cs 

18 


c* 


X(I) MUST CONTAIN THE VALUE OF THE INDEPENDENT 

* cs 

19 

20 

c+ 


VARIABLE AT POINT I. 

* cs 

20 


c* 



* cs 

21 


c* 

F 

ONE-DIMENSIONAL INPUT ARPAY DIMENSIONED AT LEAST 

* cs 

22 


c* 


IX IN THE CALLING PROGRAM. UPON ENTRY TO CSDS/ 

* cs 

23 


c * 


F ( I > MUST CONTAIN THE VALUE OF THE FUNCTION AT 

* cs 

24 

25 

c* 


POINT X(I). 

♦ cs 

25 


c* 



* cs 

26 


c* 

DF 

ONE-DIMENSIONAL INPUT ARRAY DIMENSIONED AT LEAST 

* cs 

27 


c* 


IX IN THE CALLING PROGRAM. UPON ENTRY TO CSDS/ 

* cs 

26 


c* 


DFII) MUST CONTAIN AN ESTIMATE OF THE STANDARD 

* CS 

29 

30 

c* 


DEVIATION OF FID. 

♦ cs 

30 


c* 



* cs 

31 


c* 

S 

A NON-NEGATIVE INPUT PARAMETER WHICH CONTROLS THE 

* cs 

32 




EXTENT OF SMOOTHING. S SHOULD BE IN THE RANGE 

* cs 

33 


c* 


(IX-(2*IX)**.5)<S<(IX+(2*IX)**,5). 

* cs 

34 

35 

c* 



* cs 

35 


c* 

IP T 

INPUT INITIALIZATION PARAMETER. THE USER MUST 

♦ cs 

36 


c* 


SPECIFY IPT— I WHENEVER A NEW X ARRAY IS 

* cs 

37 


c ♦ 


INPUT. THE ROUTINE WILL ALSO CHECK TO INSURE THAT 

♦ cs 

38 


c* 


THE X ARRAY IS IN STRICTLY INCREASING ORDER. 

* cs 

39 

40 

c* 

V 


* cs 

40 
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41 

C* 

COE F 

A TWO-DIMENSIONAL OUTPUT ARRAY DIMENSIONED (MAX#4) 

* 

CS 

41 


C* 


IN THE CALLING PROGRAM. UPON RETURN* COEF(I»J) 

♦ 

cs 

42 


C* 


CONTAINS THE J-TH COEFFICIENT OF THE SPLINE FOR 

* 

CS 

43 


C* 


THE INTERVAL BEGINNING AT POINT X(I). THE 

♦ 

cs 

44 

45 

c* 


FUNCTIONAL VALUE OF THE SPLINE AT ABSCISSA XI# 

* 

cs 

45 


C* 


WHERE X ( I ) <X1<X ( 1+1 )* IS GIVEN BY* 


cs 

46 


C* 


F(X1)»CCC0EF( I* 4)*H+C0EF ( I# 3) )*H+COEF ( I* 2 > )*H 

* 

cs 

47 


C* 


+COEF (1*1) 

♦ 

cs 

48 


C+ 


WHERE H-Xl-X(I) 

* 

cs 

49 

50 

c* 



* 

cs 

50 


c* 

WK 

A ONE-DIMENSIONAL WORK AREA ARRAY DIMENSIONED AT 

* 

cs 

51 


c* 


LEAST (7*IX+9> IN THE CALLING PROGRAM. 

* 

cs 

52 


c * 



♦ 

cs 

53 


c* 

IERR 

OUTPUT ERROR PARAMETER* 

♦ 

cs 

54 

55 

c* 


■0 NORMAL RETURN. NO ERROR DETECTED. 

* 

cs 

55 


c* 


■J THE J-TH ELEMENT OF THE X ARRAY IS NOT IN 

* 

cs 

56 


c* 


STRICTLY INCREASING ORDER. 

* 

cs 

57 


c* 


•-1 THERE ARE LESS THAN FOUR VALUES IN THE X ARRAY 

. * 

cs 

58 


c* 



* 

cs 

59 

60 

c* 


UPON RETURN FROM CSDS* THIS PARAMETER SHOULD BE 

* 

cs 

60 


c* 


TESTED IN THE CALLING PROGRAM. 

♦ 

cs 

61 


c* 



♦ 

cs 

62 


c* 



* 

cs 

63 


c* 



* 

cs 

64 

65 

c* 

REQUIRED 

ROUTINES -NONE 

♦ 

cs 

65 


c* 



♦ 

cs 

66 


c* 

SOURCE 

IMSL ROUTINE ICSSMU MODIFIED BY 

♦ 

cs 

67 


c* 


COMPUTER SCIENCES CORPORATION 

♦ 

cs 

68 


c* 



♦ 

cs 

69 

70 

c* 

LANGUAGE 

-FORTPAN 

♦ 

cs 

70 


c* 



* 

cs 

71 


c* 

DATE RELEASED SEPTEMBER 5, 1073 

♦ 

cs 

72 


c* 



♦ 

cs 

73 


c* 

LATEST REVISION MARCH 1975 

♦ 

cs 

74 

75 

Q ****** t**************************************************************** 

cs 

75 


c 




cs 

76 


c 




cs 

77 



DIMENSION 

X(l)* FC1)* DF(1)* C0EF(HAX*4), WKC1) 


cs 

78 


c 




cs 

79 

80 

c 


SET UP WORKING AREAS 


cs 

80 
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ei 

C 


CS 

81 



IERR-0 

CS 

82 



IF (IPT.NE.-l) GO TO 4 

CS 

83 



IPT-0 

CS 

84 

05 


IF (IX.LT.4) GO TO I 

CS 

85 



GO TO 2 

CS 

86 


1 

IERR— 1 

CS 

87 



RETURN 

CS 

86 


2 

IX1-IX-1 

CS 

89 

90 


DO 3 1*1, 1X1 

CS 

90 



IF (X(I+1)-X(I) . GT. 0 ) GO TO 3 

CS 

91 



IERR-I+1 

CS 

92 



RETURN 

CS 

93 


3 

CONTINUE 

CS 

94 

95 


NP1-IX+1 

CS 

95 



IB1-NP1 

CS 

96 



IB2-IB1+NP1 

CS 

97 



IB3-IB2+NP1+1 

CS 

98 



IB4-IB3+NP1 

CS 

99 

100 


IB5-IB4+NP1 

CS 

100 



IB6-IB5+NP1+1 

CS 

101 



WK(l)-0. 

CS 

102 



WK (2 ) »0 • 

CS 

103 



WK(IB2)»0. 

CS 

104 

105 


WK (IB3) »0. 

CS 

105 



IJK2-IB2+NP1 

CS 

106 



WK ( I JK2 ) »0 . 

CS 

107 



IJK5-IB5+1 

CS 

108 



WK ( I JK5 )»0. 

CS 

109 

110 


IJK5-IB5+2 

CS 

110 



WK(IJK5)-0. 

CS 

111 



WK(IB6)»0. 

CS 

112 



IJK5-IB5+NP1 

CS 

113 



WK(IJK5)»0. 

CS 

114 

115 

4 

CONTINUE 

CS 

115 



P-0. 

CS 

116 



H-X(2)-X(I) 

CS 

117 



F2— S 

CS 

118 



FF-(F(2)-F(1) )/H 

CS 

119 

120 


IF (IX.LT.3) GO TO 10 

CS 

120 
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121 


DO 5 I- 3, IX 

CS 

121 



G-H 

CS 

122 



H-xm-xn-i> 

CS 

123 



E-FF 

CS 

124 

125 


FF ■ ( F ( I 

CS 

125 



C0EF(I-1»1)-FF-E 

CS 

126 



IJK3-IB3+I 

CS 

127 



VK(IJK3)-tG+H)*. 66666666666667 

CS 

126 



IJKA-IB4+I 

CS 

129 

130 


WK ( I JK4 ) »H/3 • 

CS 

130 



IJK2-IB2+I 

CS 

131 



WK(IJK2)-DF(I— 2)/G 

CS 

132 



WK(I)-DF(I)/H 

CS 

133 



IJK1-IB1+I 

CS 

134 

135 


WK(IJK1)--0F(I-1)/G-DF(I-1)/H 

CS 

135 


5 

CONTINUE 

CS 

136 



DO 6 1-3, IX 

CS 

137 



IJK1-IB1+I 

CS 

136 



I JK2-IB 2+1 

CS 

139 

140 


C0EF(I-1»2)-WK(I) *WK ( I ) *WK (IJK1)*WK(IJK1)+WK(IJK2)*MKCIJK2) 

CS 

140 



C0EF(I-l,3)-WK(I)*WK(IJKl+l)+WK(IJKl)*WK(IJK2n) 

CS 

141 



C0EF(I-1*4)-WK< I)*VK(IJK2+2) 

CS 

142 


6 

CONTINUE 

CS 

143 


C 


CS 

144 

145 

C 

NEXT ITERATION 

CS 

145 


C 


CS 

146 


7 

IF (IX. IT. 3) GO TO 10 

CS 

147 



DO e 1-3, IX 

CS 

146 



I JK1-IB1+I-1 

CS 

149 

150 


IJKO-I-1 

CS 

150 



WK(IJK1)-FF*WK(IJK0) 

CS 

151 



IJK2-IB2+I-2 

CS 

152 



IJKO-I-2 

CS 

153 



WK ( I JK2 ) -G*WK ( IJKO) 

CS 

154 

155 


IJKO-I 

CS 

155 



IJK3-IB3+I 

CS 

156 



WK(IJK0)-1./(P*C0EF{I-1,2)+WK(IJK3)-FF*WK(IJK1)-G*WK(IJK2)) 

CS 

157 



I JK5-IB5+I 

CS 

158 



I JKN-IJK5-1 

CS 

159 

160 


I JKO-IJKN-1 

CS 

160 
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5 


161 

16*5 

170 

175 

ieo 

185 

190 

195 

200 


VK<IJK5)»C0EF<I-l#l)-WK<IJKl)*WK<IJKN>-WKf IJK2)*WK<IJK0) 
IJK4-IB4+I 

FF «P*COEF (I— 1# 3 ) ♦WK ( I JK4)— H^WK ( IJK 1 ) 

G * H 

H-COEF< I-1»4)*P 

8 CONTINUE 

00 9 I-3»IX 

J-IX-I+3 

IJK5-IB5+J 

IJK6-IJK5+1 

IJK7-IJK6+1 

IJK1-IB1+J 

IJK2-IB2+J 

WK(IJK5)-WK(J)*WKIIJK5 )— MK( I JK1 )*WK ( IJK6 )— WK ( IJK2 )*WK ( I JK7 ) 

9 CONTINUE 

10 E-0 
H«0 

C 

C COMPUTE U AND ACCUMULATE E 

C 

00 11 1-2, IX 

G-H 

IJK5-IB5+I 

H-(WK(IJK5+1)-WKIIJK5) > / ( X ( I ) -X ( 1-1 ) > 

I JK6-IB6+I 

WK(IJK6)-(H— G)*DF(I— 1)*DF(I— 1) 

E-E+WKl IJK6)*(H-G) 

11 CONTINUE 

G— H*DF(IX)*DF(IX» 

I JK6-IB6+NP1 
WK ( I JK6 ) -G 
E-E-G*H 
G-F2 

F2-E*P*P 

IF (F2.GE.S.0R.F2.LE.G) GO TO 14 

FF-O. 

IJK6-IB6+2 

H«(WK(IJK6+1)-WK(IJK6) )/(X(2)-X(l) ) 

IF (IX.LT.3) GO TO 13 
DO 12 1-3, IX 


CS 161 
CS 162 
CS 163 
CS 164 
CS 165 
CS 166 
CS 167 
CS 166 
CS 169 
CS 170 
CS 171 
CS 172 
CS 173 
CS 174 
CS 175 
CS 176 
CS 177 
CS 178 
CS 179 
CS 160 
CS 181 
CS 182 
CS 183 
CS 164 
CS 185 
CS 186 
CS 187 
CS 188 
CS 189 
CS 190 
CS 191 
CS 192 
CS 193 
CS 194 
CS 195 
CS 196 
CS 197 
CS 198 
CS 199 
CS 200 
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201 


G«H 


cs 

201 



IJK6-IB6+I 


cs 

202 



H«(WK(IJK6+1)-WK(IJK6) >/<X<I)-X(I-l) ) 


cs 

203 



IJK1-IB1+I-1 


cs 

204 

205 


IJK2-IB2+I-2 


cs 

205 



G«H-G-WK(IJKl)*WK(I-l)-WK(IJK2)*WK(I-2) 


cs 

206 



FF-FF+G*WK(I)*G 


cs 

207 



WK(I)«G 


cs 

206 


12 

CONTINUE 


cs 

209 

210 

13 

H«E-P*FF 


cs 

210 



IF CH.LE.O) GO TO 14 


cs 

211 


C 



cs 

212 


C 

UPDATE THE 

LAGRANGE MULTIPLIER P 

cs 

213 


C 

FOR THE 

NEXT ITERATION 

cs 

214 

215 

C 



cs 

215 



P-P+(S-F2)/( (SORT (S/E )+P)+H) 


cs 

216 



GO TO 7 


cs 

217 


C 



cs 

216 


C 

IF E LESS 

THAN OR EQUAL TO S# 

cs 

219 

220 

C 

COMPUTE THE COEFFICIENTS AND RETURN. 

cs 

220 


C 



cs 

221 


14 

DO 15 I ■2>NP1 


cs 

222 



IJK6-IB6+I 


cs 

223 



CGEF<I-1>1)*F<I-1)-P*WKCIJK6) 


cs 

224 

225 


IJK5-IB5+I 


cs 

225 



C0EF(I-1,3)-VK<IJK5) 


cs 

226 


15 

CONTINUE 


cs 

227 



DO 16 I«2>IX 


cs 

228 



H«X(I)-X(I-1) 


cs 

229 

230 


C0EF(I-1#4)-(C0EF(I> 3 )-COEF ( 1-1, 3 ) )/<3. 

♦H ) 

cs 

230 



COEF (1-1.2) ■(COEF(I.l)-CQEF(I-l.l ) ) /H-( H*COEF( 1-1. 4) ♦COEFCI-lt 3) )* 

cs 

231 



1H 


cs 

232 


16 

CONTINUE 


cs 

233 



RETURN 


cs 

234 

235 


END 


cs 

235- 
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1 


SUBROUTINE PCARD ( I PUNCH# X#Y#W» THETA# YS HO# YPS»YPPS »NOSE#NP» CHORD# T 

PH 

1 



1ITLE) 


PH 

2 


C 



PH 

3 


C 

ROUTINE TO PUNCH OUTPUT DATA (TAPE 1 IS PUNCH 

FILE) 

PH 

4 

5 

c 



PH 

5 


c 

CODED BY — HARRY MORGAN NASA/LARC/TAD/AAB 

1982 

PH 

6 


c 



PH 

7 



DIMENSION TITLE< 8) * X(l), Yd ), W(l), THETA ( 1 ) , 

YSHO (1 ) » YPS(1 )# Y 

PH 

8 



lPPS(l) 


PH 

9 

10 

c 



PH 

10 



COMMON /HLM/ DX ( 200 ) , D Y< 200) , DWC 200 ) 


PH 

11 


c 



PH 

12 



COMMON /BLK1/ PI, PI2, R AD# CONS 


PH 

13 


c 



PH 

14 

15 


COMMON /INOUT/ JR EAD, JWRITE, I PRINT 


PH 

15 


c 



PH 

16 



IF (IPUNCH*LE#0#0R« IPUNCH, GE# 5 ) RETURN 


PH 

17 


c 



PH 

18 


c 

PUNCH TITLE CARD 


PH 

19 

20 

c 



PH 

20 



WRITE ( JWRITE , 10 ) IPUNCH, TITLE 


PH 

21 



WRITE (1,11) TITLE 


PH 

22 


c 



PH 

23 


c 

DETERMINE OUTPUT PUNCH OPTION 


PH 

24 

25 

c 



PH 

25 



IOP-O 


PH 

26 



IF (IPUNCH. EQ.2) IOP-1 


PH 

27 



IF (IPUNCH.FQ.3) I0P«2 


PH 

28 



IF ( IPUNCH# EO. 4 ) IQP«3 


PH 

29 

30 


WRITE (JWRITE, 12) IOP 


PH 

30 



XI "FLOAT ( IOP ) 


PH 

31 



WRITE (1,13) XI 


PH 

32 


c 



PH 

33 


c 

PUNCH UPPER SURFACE QUANTITIES 


PH 

34 

35 

c 



PH 

35 



J-KP-0 


PH 

36 



DO 1 I-NOSE,NP 


PH 

37 



J-J + l 


PH 

38 



DW(J)-W(I) 


PH 

39 

40 


IF (W(I).GT.l.O) KP-1 


PH 

40 
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41 IF (IOP.EQ.O) DX(J)-xm*CHORD PH 41 

IF (IOP.NE.O) DX( J) ■THETA( I )*RAD PH 42 

IF (IOP.EQ.O) DY(J)»YSHO(I)*CHORD PH 43 

IF (IOP.EQ.1) DY(J)-YSNOCI) PH 44 

45 IF (IOP.EQ.2) OY( J) «YPS ( I ) PH 45 

IF (IOP.EQ.3) DY( J ) «YPPS ( I ) PH 46 

1 CONTINUE pH 47 

WRITE (JWRITE, 14) J PH 48 

XI.FLOAT(J) p H 49 

50 WRITE (1,15) XI PH 50 

IF (IOP.EQ.O) WRITE (JWRITE, 16) (DX ( I) , 1*1, J ) PH 51 

IF (IOP.NE.O) WRITE (JWRITE, 7) (DX C I ) , 1-1, J ) PH 52 

WRITE ( JWRITE, 17 ) (DY ( I ), I-l, J ) PH 53 

IF (KP.EQ.l) WRITE (JWRITE, 21) < DW ( I) , I-l , J ) PH 54 

55 DO 3 I«1,J PH 55 

IF (IOP.NE.O) GO TO 2 PH 56 

IF (DW(I).GT.l.O) WRITE (1,22) DX ( I ),DY ( I ) , DW (I ) PH 57 

IF (0W( D.LE.1.0) WRITE (1,18) DX(I),DY(I> PH 58 

GO TO 3 PH 59 

60 2 IF (DW(I).GT.l.O) WRITE (1,8) DX ( I ), 0Y( I) , DW( I) PH 60 

IF (DW( I) .LE.1.0) WRITE (1,9) DX(I),DY(I) PH 61 

3 CONTINUE PH 62 

C PH 63 

C PUNCH LOWER SURFACE QUANTITIES pH 64 

65 C PH 65 

J-KP-0 PH 66 

DO 4 I-1,N0SE PH 67 

J-J+l PH 68 

K-NOSE+l-I p H 69 

70 DW( J )*W(K) PH 70 

IF (W(K).GT.l.O) KP-1 PH 71 

IF (IOP.EQ.O) DX(J)-X(K)*CHORD PH 72 

IF (IOP.NE.O) DX(J)«THETA(K)*RAD PH 73 

IF (IOP.EQ.O) OY(J)"YSNO(K)*CHORD PH 74 

75 IF (I0P.EQ.1) DY(J)-YSMO(K) PH 75 

IF (I0P.EQ.2) DY(J)-YPS(K) pH 76 

IF (I0P.EQ.3) DY(J)-YPPS(K) PH 77 

4 CONTINUE PH 78 

WRITE (JWRITE, 19) J PH 79 

80 XI-FLOAT(J) PH 80 
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81 


WRITE (1*15) XI 

PH 

81 



IF (IOR.EQ.O) WRITE (JWRITE*16) (DX ( I ) ,1-1, J ) 

PH 

82 



IF (IOP.NE.O) WRITE (JWRITE»7) (DX ( I ), I-l , J ) 

PH 

83 



WRITE ( JWRITE* 17) (DY( I )* I»l* J ) 

PH 

84 

85 


IF (KP.EQ.l) WRITE (JWRITE*21) (DW( I ) , I -1, J ) 

PH 

65 



DO 6 >1*J 

PH 

86 



IF (IOP.NE.O) GO TO 5 

PH 

87 



IF CDWm.GT.1.0) WRITE (1*22) DX ( I ) *DY( I ) » DWt I ) 

PH 

88 



IF (DW(I).LE.l.O) WRITE (1*18) DX(I)*nY(I) 

PH 

89 

90 


GO TO 6 

PH 

90 


5 

IF (DW(I).GT.l.O) WRITE (1*8) DX ( I )*DY( I )* DW( I) 

PH 

91 



IF (DW(I).LE.l.O) WRITE (1*9) DX(I)*DY(I) 

PH 

92 


6 

CONTINUE 

PH 

93 


C 


PH 

94 

95 

C 

PUNCH YLTE AND YUTE 

PH 

95 


C 


PH 

96 



IF (I0P.LE.1) RETURN 

PH 

97 



YLTE«YSM0(1) 

PH 

98 



YNOSE-YSMO(NOSE) 

PH 

99 

100 


YUTE-YSHO(NP) 

PH 

100 



WRITE ( JWRITE* 20 ) YLTE, YNOSE* YUTE 

PH 

101 



WRITE (1,18) YLTE*YNOSE*YUTE 

PH 

102 


C 


PH 

103 


C 

RETURN TO CALLING PROGRAM 

PH 

104 

105 

c 


PH 

105 



RETURN 

PH 

106 


c 


PH 

107 


7 

FORMAT ( /3X#4HTH -*8F10.5/(7X*8F10. 5) ) 

PH 

108 


8 

FORMAT (F10.5,F10.6,F10.2) 

PH 

109 

110 

9 

FORMAT (F10.5,F10.6) 

PH 

110 


10 

FORMAT (1H1,10X,36HTHE FOLLOWING DATA HAVE BEEN PUNCHED* 5X* 7HI PUNC 

PH 

111 



1H-,I4//3X*8A10) 

PH 

112 


11 

FORMAT (8A10) 

PH 

113 


12 

FORMAT ( / 3X* 5HI0P -,I4) 

PH 

114 

115 

13 

FORMAT (30X,F10.2) 

PH 

115 


14 

FORMAT U3X/4HNU -*I^) 

PH 

116 


15 

FORMAT (F10.2) 

PH 

117 


16 

FORMAT (/3X*4HDX -*8F10.6/ (7X*8F10.6) ) 

PH 

118 


17 

FORMAT ( /3X*4HDY -»8F10.6/(7X*8F10.6) ) 

PH 

119 

120 

18 

FORMAT (3F10.6) 

PH 

120 
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121 19 FORMAT </3X,4HNl »#I4) PH 121 

20 FORMAT ( /3X»6HYLTE •»F10.6#5X,7HYN0SE **F10. 6# 5X# 6HYUTE -#F10.6) PH 122 

21 FORMAT ( / 3X* 4HDW •#8F10.2/ <7X#8F10.2)) PH 123 

22 FORMAT (2F10.6»F10.2) PH 124 

125 END PH 125- 
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1 

5 


10 


15 


20 


25 


30 


35 


40 


SUBROUTINE PLOTAF { THETA* Y#YSMO#YP$fYPP$#NPfTlTLE*IPLOT) 

C 

C THIS ROUTINE PLOTS INPUT AND SMOOTHED Y/C* SMOOTHED YPS# AND 
C SMOOTHED YPPS VERSUS THETA. ALSO PLOTS INPUT AND SMOOTHED Y/C 
C VERSUS X/C. 

C 

C CODED BY — HARRY MORGAN NASA/L ARC/TAD/ AAB 1982 

C 

DIMENSION TITLEC8), THETA(1)» Y(l), YSMO(l)# YPS(1) # YPPS(l) 

C 

COMMON /HLM / XI < 363 )# YI ( 363 ># TI (363) 

C 

COMMON /SHY/ YPSK363) 

C 

COMMON /BLK1/ P 1, PI 2, R AD, CONS 
C 

COMMON /INOUT/ JREAD, J WRITE# IPR INT 
C 

DATA NM/361/,SlZ/.40/,I$IZ/3/ 

C 

C SINH(X) »(EXP(X)-EXP(-X ) )/2. 

C 

C INTERPOLATE NM SMOOTHED COORDINATES Y/C AND YPS VALUES 

C 

YMAX-0.0 

DP»(THETA(NP ) -THETA ( 1 ) ) /FLOAT (NH-1 ) 

YP-THETA(1)-DP 

M-2 

DO 5 I«lfNN 
YP-YP+DP 

IF (YP.LT.THETAUn YP-THETA(l) 

IF (YP.GT.THETA(NP) ) YP-THETA(NP) 

T I ( I ) «Y P + RAD 
IF (M.LT.2) M-2 
TP«ABS ( YP ) 

IF (TP.LE.PI2) GO TO 1 

XI ( I ) «CONS*( ATAN ( SINH ( TP-PI2) ) + l.) 

GO TO 2 

1 X I C I ) «CONS* ( l.-COS C TP ) ) 

2 DO 3 K-MfNP 


PF 1 
PF 2 
PF 3 
PF 4 
PF 5 
PF 6 
PF 7 
PF 8 
PF 9 
PF 10 
PF 11 
PF 12 
PF 13 
PF 14 
PF 15 
PF 16 
PF 17 
PF 18 
PF 19 
PF 20 
PF 21 
PF 22 
PF 23 
PF 24 
PF 25 
PF 26 
PF 27 
PF 28 
PF 29 
PF 30 
PF 31 
PF 32 
PF 33 
PF 34 
PF 35 
PF 36 
PF 37 
PF 38 
PF 39 
PF 40 
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A1 


J-K-l 

PF 

*1 



IF (YP.GE.THETACJ).AND.YP.LE.THETA(K)) GO TO 4 

PF 

42 


3 

CONTINUE 

PF 

43 


A 

M-J 

PF 

44 

45 


DELTA-THETA (J*1)-THETA(J) 

PF 

45 



X2-THETA( J + D-YP 

PF 

46 



XI -YP-THETA ( J ) 

PF 

47 



YI (I )-YPPS(J)*(X2**3/(6.*0ELTA)-X2*DELTA/6. )+YPi»S(J+l)*CXl**3/(6,* 

PF 

46 



IDE LTA)-X1*DELTA/6.)*(YSN0(J)*X2+YSM0(J+1)*X1) /DELTA 

PF 

49 

50 


YPSl(I>-YPPS(J)*(DELTA/6.-X2*X2/(2.*DELTA))+YPPS(J+l)*(Xl*Xl/(2.*D 

PF 

50 



1ELTA)-DELTA/6.)'MYSM0(J+1)“YSN0(J)) / DELTA 

PF 

51 



IF (ABS(YI(I)).GE.YMAX) YMAX-ABS ( YI ( I ) ) 

PF 

52 


5 

CONTINUE 

PF 

53 


C 


PF 

54 

55 

C 

PRINT INTERPOLATED Y/C-COORDINATES 

PF 

55 


C 


PF 

56 



IF (IPRINT.NE.O) GO TO 6 

PF 

57 



WRITE ( JWRITE,15) TITLE 

PF 

58 



WRITE ( JWRITE ,16) ( I,TI <1 ) »XI (I ), YI I I ),I-1»NM) 

PF 

59 

60 

C 


PF 

60 


C 

DETERMINE SCALING FACTOR FOR Y/C AXIS 

PF 

61 


c 


PF 

62 


6 

YSCALE-0.1 

PF 

63 



IF (YHAX.LE.0.06) YSCALE-0.01 

PF 

64 

65 


IF ( (YMAX.GT. 0.06). AND. (YMAX.LE. 0.12) ) YSCALE-0.02 

PF 

65 



IF ((YMAX. GT. 0.12). AND. CYMAX.LE. 0.24)) YSCALE-0.04 

PF 

66 



IF ( (YMAX.GT. 0.24). AND. (YMAX.LE. 0.30) ) YSCALE-0.05 

PF 

67 



YMIN— 6.*YSCALE 

PF 

68 



YSAV-YSCALE 

PF 

69 

70 

c 


PF 

70 


c 

DRAW AND LABEL Y/C AND THETA AXIS 

PF 

71 


c 


PF 

72 



IF (IPL0T.E0.2) GO TO 11 

PF 

73 



CALL CALPLT (2.,l.,-3) 

PF 

74 

75 


CALL NOTATE (0.,0.»SIZ, TITLE, 0., 80) 

PF 

75 



CALL AXES (0.,2.,0.,36.,-180.,10.,-2.»l.,10HTHETA,DEG.,SIZ,-10,0) 

PF 

76 



CALL AXES (0.,2.,90.»12.,YMIN,YSCALE,-1.,0.»3HY/C»SIZ,3,2) 

PF 

77 



CALL NOTATE ( 1.0, 13, 1, .4, 2# 0.,-l ) 

PF 

78 



CALL NOTATE (1.5,12.9,SIZ,8HSM00THED»0.,«) 

PF 

79 

80 


CALL NOTATE (1.0,13.7, .4,3,0.,-!) 

PF 

80 
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81 


CALL NOTATE (1.5. 13.5»SIZ;5HINPUT*0..5) 

PF 

81 



CALL CALPLT (0.,8.,-3) 

PF 

62 


C 


PF 

63 


c 

PLOT INPUT Y/C-COORDINATES VS THETA 

PF 

84 

85 

c 


PF 

65 



DO 7 I* 1» NP 

PF 

66 



TP«THETA(I)*RAD/10.+18,0 

PF 

67 



YP-Y(I) /YSCALE 

PF 

86 



CALL PNTPLT (TP.YP.22, ISIZ) 

PF 

69 

90 

7 

CONTINUE 

PF 

90 


c 


PF 

91 


c 

PLOT SMOOTHED Y/C-COORDINATES VS THETA 

PF 

92 


c 


PF 

93 



TI{NM+1)»-180.0 

PF 

94 

95 


TI(NM+2)»10.0 

PF 

95 



YI (NN+1 ) "0. 

PF 

96 



YI (NM+2 )» YSCALE 

PF 

97 



CALL LINE (TI,YI,NM.1»0»0»0.) 

PF 

98 


c 


PF 

99 

100 

c 

DETERMINE SCALING FACTOR FOR FIRST DERIVATIVE AXIS (YP AXIS) 

PF 

100 


c 


PF 

101 



YMAX-0.0 

PF 

102 



DO 8 I«1»NM 

PF 

103 



IF (ABS(YPSI(I)).GT.YMAX) YMAX-ABS ( YPSI (I ) ) 

PF 

104 

105 

8 

CONTINUE 

PF 

105 



CSCALE-.l 

PF 

106 



IF ( (YHAX.LE. 0.30). AND. (YMAX.GT. 0.24) > CSCALE-.05 

PF 

107 



IF C(YMAX. LE. 0.24). AND. CYMAX.GT. 0.12)) CSCALE-.04 

PF 

108 



IF C(YMAX. LE. 0.12). AND. (YMAX.GT. 0.06)) CSCALE-.02 

PF 

109 

110 


IF ((YNAX. LE. 0.06). AND. (YMAX.GE. 0.00)) CSCALE-.01 

PF 

110 



CHIN— 6.*CSCALE 

PF 

111 


c 


PF 

112 


c 

DETERMINE SCALING FACTOR FOR SECOND DERIVATIVE AXIS (YPP AXIS) 

PF 

113 


c 


PF 

114 

115 


YMAX-0.0 

PF 

115 



DO 9 I-1»NP 

PF 

116 



IF (ABS(YPPS(D).GT.YMAX) YMAX-ABS ( YPPS ( I ) ) 

PF 

117 


9 

CONTINUE 

PF 

118 



YSCALE-1. 

PF 

119 

120 


IF ((YNAX. LE. 3. 00). AND. (YMAX.GT. 2. 40)) YSCALE-. 5 

PF 

120 
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121 

125 

130 

135 

140 

145 

150 

155 

160 


C 

C 

C 


C 

C 


C 

C 

C 


C 

C 

C 


IF ( (YMAX.LE.2.40>,AND.(YMAX.GT.1.20)) 
IF ( (YMAX.LE.1.20).AND.CYMAX.GT.0.60)> 
IF ( (YMAX.LE.0.60) . AND. (YMAX. GT.0.30) ) 
IF ( (YMAX.LE.0.30) . ANO .(YMAX.GT.0.24)) 
IF ( ( YMAX. LE. 0. 24). ANO. (YMAX. GT. 0.12)) 
IF ( ( YM AX • LE.0.12 ) . AND. CYNAX.GT.0.06)) 
IF ( (YMAX.LE.0.06 ) . ANO. (YMAX. GE .0.00) ) 
YHIN— 6.*YSCALE 


YSCALE-.4 PF 121 
YSCALE-.2 RF 122 
YSCALE-.l PF 123 
YSCALE».05 PF 124 
YSCALE-.04 PF 125 
YSCALE-.02 PF 126 
YSCALE-.01 PF 127 

PF 128 
PF 129 
PF 130 
PF 131 
PF 132 
PF 133 
PF 134 
PF 135 
PF 136 
PF 137 
PF 138 
PF 139 
PF 140 
PF 141 
PF 142 
PF 143 
PF 144 
PF 145 
PF 146 
PF 147 
PF 148 
PF 149 
PF 150 
PF 151 
PF 152 
PF 153 
PF 154 
PF 155 
PF 156 
PF 157 
PF 158 
PF 159 
PF 160 


DRAW AND LABEL YP, YPP, ANO THETA AXIS 
CALL CALPLT (0.,8.,-3> 

CALL AXES (0.,0.,0.,36.#-180.,10.,-2.,l.,10HTHETA,DEG.,SIZ,-10,0) 
DRAW ANO LABEL YPS AXES 

CALL AXES <0.,0.,90.,12.,CMIN,CSCALE,-1.,0.»3HYPS»SIZ»3,2) 

ORAW ANO LABEL YPPS AXES 

CALL AXES <36.»0.,90.,12.,YMIN,YSCALE,-l.»0.,4HYPPS»SIZ,-4*2) 

CALL NOTATE (1.0,11.1, .4,3,0. ,-l> 

CALL NOTATE ( 1.5, 10.9, S IZ,4HYPPS, 0.,4 ) 

CALL NOTATE ( 1.0# 11.7* .4. 2. 0. .-1 ) 

CALL NOTATE (1.5*11.5*SIZ*3HYPS*0.*3) 

CALL CALPLT (0.*6.,-3) 

PLOT SMOOTHED FIRST DERIVATIVES YP VS THFTA 

YPSItNM+D-O.O 

YPSI(NM+2)«CSCALE 

CALL LINE (TI,YPSI,NH»1, 0,0,0.) 

PLOT SMOOTHED SECOND DERIVATIVES YPP VS THETA 

THETA(NP + 1)— PI 

THETA(NP+2)»10./RAD 

YPPS (NP+1 ) «0.0 

YPPS (NP+2J-YSCALE 

CALL LINE (THETA, YPPS, NP, 1,0, 0,0.) 

DO 10 1*1, NP 

TP-THETA(I)*RAD/10.*18.0 

YP-YPPS(I J/YSCALE 

CALL PNTPLT (TP,YP,22, ISIZ) 



LISTING OF DECK i PLPTAF 


PAGE 


5 


CARD NO. 
161 

165 
170 
175 
IPO 
IB 5 
190 
195 
200 


10 

c 


c 

c 

c 

11 


c 

c 

c 

c 

c 


c 

c 

c 


CONTINUE 
CALL NFRAME 

CHECK PLOT OPTION 

IF (IPL0T.E0.1.QR.IPL0T.E0.6) RETURN 
IF (IPL0T.E0.8) RETURN 

DETERMINE SCALING FACTOR FOR Y/C AXIS 

IF (YSAV.E0.0.01) YMAX-8 
IF (YSAV.EQ.0.02) YNAX-12 
IF (YSAV.EQ.0.04) YMAX-20 
IF (YSAV.EO.0.05) YMAX-24 
YMIN— 0.0125*YHAX 

PLOT INPUT AND SMOOTHED Y/C-COORDINATES VS X/C 

DRAW AND LABEL Y/C AND X/C AXIS 

CALL CALPLT (2.,2 # ,-3) 

CALL NOTATE (0«*0»*SIZ;TITLE>0.#80) 

CALL CALPLT C0.;2*#-3) 

CALL AXES C0.f0.»0.*40.#0.# .025 #-2 . , 1. » 3HX /C » SI Z#-3, 2 ) 

CALL AXES (0./0«#90«>YHAXjYMINf0#Q25>-2.#l.*3HY/C*SIZ#3#2) 
YP-YMAX-0,9 

CALL NOTATE ( 1.0> YP,SI Z,2* 0#*-l ) 

YP » YMAX-1 • 1 

CALL NOTATE (1.5>YP>SIZ*8HSM00THE0>0.*8) 

YP«YMAX-t3 

CALL NOTATE ( 1.0, YP#SI Z#3> 0*»-l ) 

YP-YMAX-.5 

CALL NOTATE ( 1 • 5* YP* S I Z#5HINPUT# 0«# 5 ) 

YP*0* 5* YM AX 

CALL CALPLT <0 # ,YP,-3) 

PLOT INPUT Y/C-COORDINATES 

00 14 I-1,NP 
TP«ABS ( THETA ( I ) ) 

IF (TP.LE.PI2) GO TO 12 
XP«C0NS*(ATAN($lNH(TP-PI2))+l.)/.025 


PF 

161 

PF 

162 

PF 

163 

PF 

164 

PF 

165 

PF 

166 

PF 

167 

PF 

168 

PF 

169 

PF 

170 

PF 

171 

PF 

172 

PF 

173 

PF 

174 

PF 

175 

PF 

176 

PF 

177 

PF 

178 

PF 

179 

PF 

180 

PF 

181 

PF 

182 

PF 

183 

PF 

184 

PF 

185 

PF 

186 

PF 

187 

PF 

188 

PF 

169 

PF 

190 

PF 

191 

PF 

192 

PF 

193 

PF 

194 

PF 

195 

PF 

196 

PF 

197 

PF 

198 

PF 

199 

PF 

200 
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201 

205 

210 

215 

220 


12 

13 

14 
C 

c 

c 


c 

c 

c 

c 

15 


16 


GO TO 13 

XP«CONS*< 1. -COS (TP) )/.025 
YP «Y ( I ) / • 025 

CALL PNTPLT < XP, YP, 22, ISIZ ) 

CONTINUE 

PLOT SMOOTHED Y/C-CGORDINATES 

XI(NM+1).YI(NM+1)«0.0 

XI(NM+2)-YI(NM+2)-.025 

CALL LINE (XI, YI,NM,1, 0,0,0.) 

CALL NFRAME 

RETURN TO CALLING PROGRAM 
RETURN 

FORMAT ( 1H1, IX, 7HTITLE--, 2X,8A10//49X,28H--INTERP0LATED COORDINATE 
1S“ / 10X,1 HI , 3 X#5 HTH E T A,5X,3HX /C , 7X , 3HY/C, 12X, 1HI, 3X, 5HTHETA, 5X , 3HX 
2/Cj7X,3HY/C#12X,1HI#3X,5HTHETA#5X,3HX/C#7X, 3HY/C/ ) 

FORMAT <3<7X,I4,F8*2,2F10.6)) 

END 


PF 201 
PF 202 
PF 203 
PF 204 
PF 205 
PF 206 
PF 207 
PF 208 
PF 209 
PF 210 
PF 211 
PF 212 
PF 213 
PF 214 
PF 215 
PF 216 
PF 217 
PF 218 
PF 219 
PF 220 
PF 221 
PF 222- 
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LISTING OF DECK I PLOTCK 
CAPO NO. 


PAGE 


1 


1 


5 


10 


15 


20 


25 


30 


35 


40 


C 

C 

C 

C 

C 

c 


c 

c 

c 

c 

c 

c 

c 


1 


2 

3 


SUBROUTINE PLOTCK (THETA, YSMO,YPS,YPP$,NP,TITLE> 

ROUTINE TO PLOT SQUARE ROOT OF SMOOTHED CURVATURE VERSUS THETA 

CODED BY — HARRY MORGAN NASA/LARC/TAD/AAB 1982 

DIMENSION THETA (1), YSMO(l), YPS(l), YPPS(1), TITLE! 8) 

COMMON /HLM/ TK723) 

COMMON /SHY/ CURV<723» 

COMMON /BLK1/ PI,PI2,RAD,C0NS 
COMMON /INOUT/ JREAD,J WRITE, I PRINT 

DATA NM/721X,SIZ/.40/» ISIZ/3/ 

SINH(X) »0.5*(EXP(X)-EXP(-X) ) 

COSH(X) •0.5*(EXP<X)«-EXP(-X) ) 

INTERPOLATE NM CURVATURE POINTS 

IF (IPRINT.NE.O) GO TO 1 

WRITE ( JWRITE, 15) TITLE 

DP« ( THETA (NP )-THETA (1 ) ) /FLOAT (NM-1 ) 

TDEL-THETA(1)-DP 

M«2 

DO P I«1»NM 
TOEL-TDEL+DP 

IF (TDEL.LT.THETA(l) J TDEL«THETA( 1 ) 

IF (TDEL.GT.THETA(NP)J TDEL-THETA(NP) 

TI(I )«TDEL*RAD 
TP-TDEL 

IF (M.LT.2) M-2 
DO 2 K-M,NP 
J "K-l 

IF (TP. GE. THETA! J),AND,TP.LE.THETA(K) ) GO TO 3 

CONTINUE 

M-J 

DELTA "THE TA(J+1 )— THETA (J) 

T2«THETA(J+1)-TP 

Tl-TP-THETA(J) 


PC 

1 

PC 

2 

PC 

3 

PC 

4 

PC 

5 

PC 

6 

PC 

7 

PC 

e 

PC 

9 

PC 

10 

PC 

11 

PC 

12 

PC 

13 

PC 

14 

PC 

15 

PC 

16 

PC 

17 

PC 

16 

PC 

19 

PC 

20 

PC 

21 

PC 

22 

PC 

23 

PC 

24 

PC 

25 

PC 

26 

PC 

27 

PC 

28 

PC 

29 

PC 

30 

PC 

31 

PC 

32 

PC 

33 

PC 

34 

PC 

35 

PC 

36 

PC 

37 

PC 

36 

PC 

39 

PC 

40 
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41 


YI»YPI>S(J>*(T2**3/(6.*DELTA)-T2*DELTA/6.)*YPP$(J+1)*(T1**3/(6..DEL 

PC 

41 



1TA )-Tl* DELTA /6« )♦( YSMO( J)*T2*YSN0( J*1)*T1 ) /DELTA 

PC 

42 



YPI-YPP$( J)* (DELTA/6. -T2*T2/( 2. *0ELTA)J+YPPS(J*1)*(T1*T1/(2.«'DELTA 

PC 

43 



1)- DELTA/6.) ♦ ( YSMO( J+U-YSMO (4 ))/DELTA 

PC 

44 

45 


YPPI»(YPPS( J )*T2+YPPS (4+1) *T1) /DELTA 

PC 

45 



DELTA-YPI 

PC 

46 



IF (TP, LE .0.0) DELTA-DELTA 

PC 

47 



TP-ABS(TP) 

PC 

48 



IF (TP.GT.PI2) GO TO 4 

PC 

49 

50 


GP-CONS*SIN(TP) 

PC 

50 



GPP-CONS+COS(TP) 

PC 

51 



XI-C0NS*(1.-C0S(TP)) 

PC 

52 



GO TO 5 

PC 

53 


4 

T1-C0SH(TP-PI2) 

PC 

54 

55 


T2»S INH (TP-PI2 ) 

PC 

55 



XI«CONS*( ATAN(T2)*1.) 

PC 

56 



GP-C0NS/T1 

PC 

57 



GPP— C0NS*T2/(T1*T1) 

PC 

58 


5 

IF (TP.LE.O.O.OR.GP.EQ.O.O) GO TO 6 

PC 

59 

60 


DYDX-DELTA/GP 

PC 

60 



PY2DX-( YPPI*GP-DELTA*GPP)/(GP+*3) 

PC 

61 



CURV(I) •ABS(DY2DX)/(SQRT(1.+DYDX**2)**3) 

PC 

62 



GO TO 7 

PC 

63 


6 

DYDX-0.1E99 

PC 

64 

65 


DY2DX-0.1E99 

PC 

65 



CURV ( I ) »CONS/ (DELTA*DELTA) 

PC 

66 


7 

IF ( IPRINT.NE.O) GO TO 8 

PC 

67 



WRITE ( JWRITE# 16) It TI ( I )» XI, Yl# YPI# YPPI» DYDX»DY2DX* CUR V ( I ) 

PC 

68 


0 

CURV(I)»SQRT( CURV ( I ) ) 

PC 

69 

70 

C 


PC 

70 


c 

DETERMINE SCALING FACTOR FOR CURVATURE AXES 

PC 

71 


c 


PC 

72 



CMAX-0.0 

PC 

73 



DO 9 I-1,NM 

PC 

74 

75 


IF (CURV(I).GT .CHAX ) CNAX-CUR V ( I ) 

PC 

75 


9 

CONTINUE 

PC 

76 



M-IFIX(CHAX)+1 

PC 

77 



CNAX-FL0AT(M)/20. 

PC 

78 


C 


PC 

79 

00 

C 

DRAW AND LABEL CURVATURE AND THETA AXES 

PC 

80 
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81 


65 


90 


95 


100 


105 


110 


115 


120 


C 

C 

c 


c 

c 

c 


10 


11 


12 

13 


CALL GRIDCK 

CALL CALPLT <2. ,2.,- 3 ) 

2 AL J- ( 0 *'°‘'SIZ,TITLE, 0 .,e 0 ) 

CALL CALPLT (0«#2i#"3) 

X 2, L AXES {0 * , 0»»90»>20«»0«»CMAX»-2#»1 

PLOT INTERPOLATED CURVATURE POINTS 
TKNM+l)— 180.0 

CURV (NM+1 )»0,0 
TI(NM+2)-10. 

CURV(NM+2)-CHAX 

CALL LINE (TI,CURV>NM> 1»0»0#0.0) 


PAGE 


PC 81 
PC 82 
PC 83 
PC 84 
PC 85 

1»»10HTHETA#DEG*#SIZ#-10#0) PC 86 
• #1 5HS0RT ( CURVATURE )#SIZ# 15# PC 87 


COMPUTE AND PLOT CURVATURE AT INPUT THETA POINTS 


DO 14 I «1»NP 
DELTA-YPSCI) 

IF (THETA( I) .LE.O.O) DELTA«-0ELTA 
TP-A 8 S(THETA(D) 

IF (TP.GT.PI 2 ) GO TO 10 
GP-CONS*SIN(TP) 

GPP-CONS+COS(TP) 

GO TO 11 
T1-C0SHCTP-PI2) 

T2-SINH(TP-PI2) 

GP-C0NS/T1 

GPP«-C0NS*T2/(T1*T1) 

^dJI«{:t;?g?‘ 0B * gp * E0 * 0 * 0 ’ 60 T0 12 

DY2DX-( YPPS(I)*GP-DELTA*GPP)/(GP**3) 
T1-ABS(DY2DX)/(SQRT(1.+DYDX**2).*3) 

GO TO 13 

T1«C0NS/CDELTA*DELTA) 

T2»THETA( I )*RAD/10.*18.0 

Tl-SQRT (TD/CMAX 

CALL PNTPLT CT2,T1,22,ISIZ> 


PC 

88 

PC 

89 

PC 

90 

PC 

91 

PC 

92 

PC 

93 

PC 

94 

PC 

95 

PC 

96 

PC 

97 

PC 

98 

PC 

99 

PC 

100 

PC 

101 

PC 

102 

PC 

103 

PC 

104 

PC 

105 

PC 

106 

PC 

107 

PC 

108 

PC 

109 

PC 

110 

PC 

111 

PC 

112 

PC 

113 

PC 

114 

PC 

115 

PC 

116 

PC 

117 

PC 

116 

PC 

119 

PC 

120 


116 
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PAGE A 


CARD NO. 
121 

125 

130 


1A 

C 

C 

C 


C 

C 

15 


16 


CONTINUE p C 121 

PC 122 

ADVANCE TO NEXT FRAHE AND RETURN PC 123 

PC 12A 

CALL NFRAME p C 125 

RETURN p C 126 

PC 127 
PC 128 

FORMAT (1H1#1X»7HTITLE~#2X#8A10//36X»26H~ INTERPOLATED CURVATURE- PC 129 
1~/3X»1HI» 6X» 5HTHETA* 5X» 3HX/C* 7X# 3HY/C» 6X» 5HDY/0T# 5X# 6HDY2/DT#7X> 5H PC 130 
2DY/DX»7X# UHD (DY/DX ) /DX»5X» 9HCURVATURE/ ) PC 131 

FORMAT (I5,F10.2,AF10.6#3E15.6) PC 132 


END 


PC 133- 
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PAGE 1 


CARD NO. 


1 


SUBROUTINE CAHTK (THETA# Y$MO#YPPS# NOSE# NP»EPS#KPL OT#IPUNCH# TITLE ) 

CK 

1 


C 


CK 

2 


C 

THIS SUBROUTINE COMPUTES THE THICKNESS AND CAMBER DISTRIBUTIONS 

CK 

3 


C 

OF THE SMOOTHED AIRFOIL 

CK 

4 

5 

C 


CK 

5 


c 

CODED BY ~ HARRY MORGAN NASA/LARC/TAD/AAB 1982 

CK 

6 


c 


CK 

7 



DIMENSION TITLE C 8 ) » THETA(l)# YSMO(l)# YPPS(l) 

CK 

8 


c 


CK 

9 

10 


COMMON /SHY/ TU ( 100) » YPPU( 100)# TL { 100) # YPPL ( 100) # DYXUt 100) #IX(101 ) 

CK 

10 



1#XLS(101)#YLS(101)#TH(101)#XU(102)#YU(102)#XL(102)#YL(102)#XC(103) 

CK 

11 



2»YC(103)#TK(103) 

CK 

12 


c 


CK 

13 



COMMON /BLK1/ PI#PI2#RAD#C0NS 

CK 

14 

15 

c 


CK 

15 



COMMON /INOUT/ JREAD#JWRITE#I PRINT 

CK 

16 


c 


CK 

17 



DATA NM/2001/»SIZ/.40/#I$IZ/3/ 

CK 

18 


c 


CK 

19 

20 

c 

C0SH(X)-0.5*(EXP(X)+EXP(-X) ) 

CK 

20 


c 

SINH(X)«0.5*(EXP(X)-EXP(-X) ) 

CK 

21 


c 


CK 

22 



F(X1#X2#X3#X9#X5#X6#X7#X8#X9)-X1*(X5*X9-X6*X8)+X2*(X6*X7-X9*X9)+X3 

CK 

23 



1*(X4*X8-X5*X7) 

CK 

24 

25 

c 


CK 

25 


c 

LOAD THETA# X/C# Y/C# AND SECOND DERIVATIVES INTO SEPARATE 

CK 

26 


c 

ARRAYS FOR UPPER AND LOWER SURFACES 

CK 

27 


c 


CK 

28 



J»0 

CK 

29 

30 


NU-NP-NOSE+1 

CK 

30 



DO 2 I-NOSE.NP 

CK 

31 



J-J + l 

CK 

32 



TU ( J )«THETA( I ) 

CK 

33 



YU(J)-YSMO(I) 

CK 

34 

35 


TP»ABS(THETA(I) ) 

CK 

35 



IF (TP.GT.PI2) GO TO 1 

CK 

36 



XU ( J ) »C ONS+( l.-COS (TP ) ) 

CK 

37 



GO TO 2 

CK 

36 


1 

XU(J)“CONS*(ATAN ( SINH( TP-PI2 ) )+l • ) 

CK 

39 

40 

2 

YPPU(J)-YPPSd) 

CK 

40 
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41 


45 


50 


55 


60 


65 


70 


75 


60 


3 

4 

c 


5 

C 

c 

c 

c 

c 


c 


c 


NL«NOSE 
J-NOSE+1 
DO 4 I» 1# NOSE 


J-J-l 

TL(J).THFTA(I) 

YKJ).YSHO(I) 

TP»ABS C THETA ( I ) ) 

IF (TP.GT.PI2) GO TO 3 
XL(J)-C0N$*(1*— CQS(TP) ) 

GO TO 4 

XL(J)«C0NS*(ATAN($INH(TP-PI2))+1.) 

YPPl(J)-YPPS<n 


COMPUTE FIRST DERIVATIVES OF UPPER SURFACE 
DO 5 I« 2f NU 
DELTA-TUd)-TU(I-l) 


DYXU(I)-YPPU( I )*DELTA/3*+YPPU( 1-1 )*DELTA/6» + 1 YU( I )— YUC I— 1 )) /DELTA 
IF (TU( I) .LE.PI2) DYXUC I)-OYXU(I )/ (CONS*SIN(TU(I) ) ) 

CONTINUE^ DYXUm.0YXU(n*CaSH(TU(I,-PI2„C0NS 


DYXU(1)-0.1E99 


COMPUTE THICKNESS AND CAMBER 
SURFACE COORDINATE (XLS»YLS) 
SURFACE COORDINATE (XU/YU) 


DISTRIBUTIONS BY FINDING LOWER 
CORRESPONDING TO INPUT UPPER 


NT-0 

KSAVE-I 

NS-1 

NL1-NL-1 

NM1-NM-1 

A1 -PI/F LOAT (NM1 ) 
DEL-1./ (FLOAT CNMI 1**2) 
DO 12 I-1»NU 

LOAD XU AND YU 
I J-NU+l-I 
XXU-XU( IJ ) 

Y YU- YU ( IJ) 

DYU-DYXU(IJ) 

NN-1 

FIND XLS 


CK 

41 

CK 

42 

CK 

43 

CK 

44 

CK 

45 

CK 

46 

CK 

47 

CK 

48 

CK 

49 

CK 

50 

CK 

51 

CK 

52 

CK 

53 

CK 

54 

CK 

55 

CK 

56 

CK 

57 

CK 

58 

CK 

59 

CK 

60 

CK 

61 

CK 

62 

CK 

63 

CK 

64 

CK 

65 

CK 

66 

CK 

67 

CK 

68 

CK 

69 

CK 

70 

CK 

71 

CK 

72 

CK 

73 

CK 

74 

CK 

75 

CK 

76 

CK 

77 

CK 

78 

CK 

79 

CK 

60 
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81 


DO 9 K»NS»NM 

CK 

81 



TP»A1*FL0AT(NM-K) 

CK 

62 



IF (K.EQ.l) TP-ABS ( TL C NL) ) 

CK 

83 



IF (K.EQ.NM) TP»ABS (TL (1) ) 

CK 

84 

85 


IF (TP.LE.PI2) XXL»C0NS*(1.-C0S(TP) ) 

CK 

85 



IF (TP.GT.PI2) XXL«CONS*(ATAN ( SINH( TP-PI2 ) ) +1 • ) 

CK 

86 



IF (NN.EQ.NL) NN-NL1 

CK 

87 



DO 6 J-NN.NL1 

CK 

88 



J2-NL-J 

CK 

89 

90 


J1-J2+I 

CK 

90 



IF (TP.GE.ABS(TL(J2)).AND.TP.LE.ABS(TL(J1>)> GO TO 7 

CK 

91 


6 

CONTINUE 

CK 

92 


7 

DELTA»TL(J2)-TL(J1> 

CK 

93 



Tl— TP-TL(Jl) 

CK 

94 

95 


T2"TL(J 2) +TP 

CK 

95 



YYL-YPPK Jl)*(T2**3/(6.*DELTA)-T2*DELTA/6.)+YPPL(J2)*(Tl’M3/(6.*DE 

CK 

96 



lLTA)-Tl*DELTA/6.)+(YL(Jl>*T2+YL(J2)*Tl>/DELTA 

CK 

97 



0 YL-YPPL(J1)*( DELTA/6. -T2*T2/( 2. .DELTA) >+YPPL(J2)*(Tl*Tl/ (2. .DELTA 

CK 

98 



l)-DELTA/6.)+( YL ( J2)-YL ( Jl) ) /DELTA 

CK 

99 

100 


IF (TP.LE.PI2) DELTA-CONS.SIN(TP) 

CK 

100 



IF (TP.GT.PI2) DELTA-C0NS/C0SH(TP-PI2) 

CK 

101 



IF (TP.LE.O.O) DYL-0.1E99 

CK 

102 



IF (TP.GT.O.O) DYL— DYL/DELTA 

CK 

103 



NN-NL+1-J1 

CK 

104 

105 


D»SOPT ( CXXL-XXU)**2+(YYL-YYU)**2> 

CK 

105 



IF (I.EO.l.AND.D.LE.DEL) GO TO 10 

CK 

106 



IF (D.LE.DEL) GO TO 9 

CK 

107 



COST-(YYU-YYL)/D 

CK 

108 



SINT«(XXL-XXU)/D 

CK 

109 

110 


IF (DYU.NE.0.1E99) DU-<COST*DYU-SINT)/<SINT*DYU*COST) 

CK 

110 



IF (DYU. EQ.0.1E99. AND. SINT. NE. 0.0) DU-COST/SINT 

CK 

111 



IF (DYU. E0.0.1E99. AND. SINT. EQ. 0.0) DU-0.1E99 

CK 

112 



IF (DYL .NE.0.1E99) DL— (COST*DYL-SINT) / (SINT.DYL+COST) 

CK 

113 



IF (DYl .E0.0.1E99. AND. SINT. NE. 0.0) DL— COST/SINT 

CK 

114 

115 


IF (DYL .EQ.0.1E99. AND. SINT. EQ. 0.0) DL--0.1E99 

CK 

115 



IF (K.EQ.NS) GO TO 8 

CK 

116 



DKL»(DL-DLP)/(XXL-XP) 

CK 

117 



DKU» (DU-DUP )/(XXL-XP) 

CK 

118 



IF (DKU.EQ.DKL) GO TO 8 

CK 

119 

120 


XK«XP+( DL P-DUP) / ( DKU-DKL ) 

CK 

120 


120 



LISTING OF DECKi CAMTK 
CARD NO. 


PAGE A 


121 

125 

130 

135 

1A0 

1A5 

150 

155 

160 


8 


<5 

10 

11 


12 

C 


13 

1A 


15 

16 


IF (XK.LE.XP+DEL.AND.XK.GE.XXL-DEL) GO TO 11 

KSAVE-K 

XP-XXL 

OUP-DU 

DLP-DL 

CONTINUE 

IF (I.GT.l) GO TO 12 
XK-Xl(NL) 

KSAVE-NS 


NT -NT+1 
LX(NT)-IJ 
XLS(NT) "XK 
NS-KSAVE 
CONTINUE 

COMPUTE YLS FOR EACH XLS AND PRINT RESULTS 
WRITE (JWRITE,4A) TITLE 
DO 19 I»1>NT 
IJ-LX(I) 

DELTA-XLSCI) 

IF (DELTA. GT.l.) DELTA-1. 

IF (DELTA. LE. CONS) GO TO 13 
DE LTA-TAN (DELTA/CON S-l.l 
TP-PI2+ALOG(DELTA+SORT(OELTA*DELTA+1.)) 

GO TO 1A 

TP-ACOS (1. -DELTA/CONS) 

DO 15 J-1,NL1 

J2-NL-J 

J1-J2+1 

IF (TP.GE.ABS(TL(J2)).AND.TP.LE.ABS(TL(J1))) GO TO 16 
CONTINUE 

0ELTA-TL( J2)-TL( Jl) 

Tl— TP-TL(Jl) 

T2»TL(J2)+TP 


YYL-YPPL( Jl)*(T2**3/(6.*DELTA)-T2ADELTA/6. )+YPPL( J2) 
lLTA)-Tl*DELTA/6. )♦( YL( J1)*T2+YL(J2)*T1) /DELTA 
YLS(I)-YYL 


*<T1**3/(6.*DE 


XC(I)«(XU(IJ)+XLS(I))/2. 

YC(I)-( YU(IJ)+YYL)/2. 

TK(I)-0.5*SQRT((XU(IJ )— XLS ( I ) )**2+ ( YU( I J )— YYL ) **2 ) 
IF (YU(IJ).EO. YYL ) TH(I)«0.0 


CK 121 
CK 122 
CK 123 
CK 12A 
CK 125 
CK 126 
CK 127 
CK 128 
CK 129 
CK 130 
CK 131 
CK 132 
CK 133 
CK 13A 
CK 135 
CK 136 
CK 137 
CK 138 
CK 139 
CK 1 AO 
CK 1A1 
CK 1A2 
CK 1A3 
CK 1AA 
CK 1A5 
CK 1A6 
CK 1A7 
CK 1A8 
CK 1A9 
CK 150 
CK 151 
CK 152 
CK 153 
CK 15 A 
CK 155 
CK 156 
CK 157 
CK 158 
CK 159 
CK 160 
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CARD NO. 


PAGE 5 


161 

165 

170 

175 

160 

185 

190 

195 

200 


17 

18 


19 

C 

C 

C 

C 

C 

c 


20 


IF (TP.LE.PI2) DELTA»C0NS*SIN(TP) 

re DELTA.C0NS'/C0SH(TP-PI2) 

IF (TP.LE.O.O) DYL*0. 1E99 ; 

IF (TP.GT.O.O) OYL»-DYL/OELTA 
C0ST»(YU(IJ)-YYL)/(2.*TK(!I) ) • 

SINT»(XLS(I)-XU(IJ))/( 2»fTK ( I ) ) 

ni J "Jr2cI^«. XU(IJ,_SINT,/ ( <SINT * 0YXU (I«n + C0ST) 

OL"(COST*DYL-SINT)/(SINTfOYL+COST) | 

T2«ABS{ ABS(DU)-ABS(DL) ) j [ 

GO TO 18 ! ! 

T2-0.0 / j 

T1-TH(I)*RA0 ( l 

1 T 2 IT^ (JWPITE ^ 5 > I»XU(l'j),YU(IJ),XLS(n,YYL,XC(II,YCm,TKm,Tl, 
CONTINUE ) j 

Tutr!/Iicc TAR IJ NG L0C ,^ TI0N °P CAMBER DISTRIBUTION (I.E. 

0) BY F ? TTING SECOND .'ORDER CURVE TO LAST THREE 
COMPUTED CAMBER LINE COORDINATES Unp THEN DETERHTNTMr 
INTERSECTION OF THAT CURVE WITH ijlSoiL $UrII?I 

ISYM-1 j 

DO 20 I»l,5 

IF (ABS(XU(I)-XL(in.GT.EPS) 

IF (ABS (YU(I )+YL(I) ) . GT. EPS ) 

CONTINUE 

IF (ISYM.EQ.l) GO TO 30 
IF (XC(NT).LE.DEL) GO TO 31 
X1-XC(NT)**2 
X2"XC (NT-1 )**2 
X3«XC(NT— 2)**2 


ISYM-0 

ISYM-0 


I 


nmi-nm/b 


CK 161 
CK 162 
CK 163 
CK 164 
CK 165 
CK 166 
CK 167 
CK 166 
CK 169 
CK 170 
CK 171 
CK 172 
CK 173 
CK 174 
CK 175 
CK 176 
CK 177 
CK 178 
CK 179 
CK 180 
CK 181 
CK 182 
CK 183 
CK 184 
CK 185 
CK 186 
CK 187 
CK 188 
CK 189 
CK 190 
CK 191 
CK 192 
CK 193 
CK 194 
CK 195 
CK 196 
CK 197 
CK 198 
CK 199 
CK 200 
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201 

205 

210 

215 

220 

225 

230 

235 

240 


21 

22 


23 

24 


D«XC(NT)/FL0AT(NM1) 

X*0» 0 
XP-X 

YYUP-YU(l) 

YYLP-YL(l) 

YYCP*(A1*X+A2)*X+A3 

NH1«N*1+1 

DO 27 I«2,NM1 

X-X + D 

IF ( X.GT •CONS ) GO TO 27 
TP-ACOS (l.-X/CONS) 

DO 21 K *2#NU 

Kl-K-1 

K2»K 


CK 201 
CK 202 
CK 203 
CK 204 
CK 205 
CK 206 
CK 207 
CK 208 
CK 209 
CK 210 
CK 211 
CK 212 
CK 213 
CK 214 


IF (TP. GE .TUCK1) . AN0»TP*LE.TU(K2) ) GO TO 22 CK 215 

CONTINUE CK 216 

DELTA*TU(K2)-TU(K1) CK 217 

Tl*TP— ' TU(K1) CK 218 

T2«TU(K2)-TP CK 219 

YYU"YPPU(Kl)*(T2**3/(6«*DELTA)-T2*DELTA/6.)+YPPU(K2)*(Tl , fr*3/(6.4DE CK 220 

lLTA)-Tl*DELTA/6 t ) + {YU(K2mn*YU(Kl)*T?)/0ElTA CK 221 

DO 23 J «2#NL CK 222 

J2-J-1 CK 223 

J 1 «J CK 224 

IF (TP.GE.ABS(TL(J2) ) • AND ( TP«LE« ABS (TL ( J1 ) ) ) GO TO 24 CK 225 


CK 221 
CK 222 
CK 223 
CK 224 


CONTINUE CK 226 

DE LTA»TL ( J2 )—TL ( J1 ) CK 227 

Tl—TP-TMJl) CK 228 

T2»TL ( J 2 ) +TP CK 229 

YYL-YPPL(Jl)*(T2**3/(6.*0ELTA)-T2*DELTA/6.)+YPPL(J2J*<Tl**3/(6.*0E CK 230 

llTA)-Tl*DELTA76.)-MYL|Jim2+Yl(J2mi)/DElTA CK 231 

YYC-<A1*X+A2)*X+A3 r K 232 

OKC" ( YYC-YYCP ) / C X—XP ) r K 233 


CK 231 
CK 232 


DKU» ( YYU-YYUP } / ( X—XP ) 

IF (DKU.EQ.OKC) GO TO 25 
XKU«XP+ { YYCP-YYUP) / (DKU-OKC ) 

IF (XKU.GE.XP.AND.XKU.LE.X) GO TO 28 
OKL"(YYL-YYLP)/( X-XP ) 

IF (DKL.EQ.OKC) GO TO 26 
XKL»XP+ (YYCP-YYLP) / (DKL— DKC ) 


CK 234 
CK 235 
CK 236 
CK 237 
CK 238 
CK 239 
CK 240 
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PAGE 7 


IF ( XKL.GE.XP.AND.XKL.LE.X) GO TO 29 
XP»X 

YYLP-YYL 
YYUP-YYU 
YYCP-YYC 
CONTINUE 
GO TO 31 
NT-NT+1 
LX (NT) ■ 0 
XLS(NT) «XKU 
XC(NT)-XKU 

DU* ( A1*XKU+A2 )*XKU+A3 
TK(NT)-0. 

TH(NT)«ATAN(2. *A1*XKU*A2) 

TP-ACOS (l.-XKU/CONS) 

OELTA»TU(K2)— TU(K1) 

Tl-TP-TU(Kl) 

T2»TU(K2)-TP 

i. Y ^r Y T^nc. 1 l! (T2 ** 3,(6 ** DELTA, " T2 * DELTA/6 *» +Yp P u <'<2)*(Tl**3/(6.*0E 
lLTA)-Tl*DELTA/6.)+(YU(K2)*Tl+YU(Kl)*T2)/DELTA Ut 

YLS( NT) «YYU 
YC(NT)«YLS(NT) 

D«ABS(ABS(DU)-ABS(YC(NT)) ) 

T1«TH(NT) *RAD 

i W t^/wt! NT,XLS<NT,,YLS<NT,#XLS(NT >» Y LS(NT)*XC(NT)#YC(NT) 

It IKlNIIjliju 
GO TO 31 
NT-NT+1 
LX (NT) ■ 0 
XLS(NT) -XKL 
XC (NT) » XKL 

0L«(A1*XKL+A2)*XKL+A3 

TK(NT)-0. 

TH(NT)»ATAN(2.+A1*XKL*A2) 

TP-ACOS (l.-XKL/CONS) 

DELTA»TL( J2)-TL(J1) 

Tl— TP-TL(Jl) 

T2«TL ( J 2) +TP 

i ^!:: Y :, P i‘ J .H: (T2 ^ 3,(6 -* 0ELTA »- T2 *D E '- T Af6.) + y P PL(J2)MTl**3/C6.*0E 
1LTA)-T1*DELTA/6.)*(YLC J1)*T2+YL(J2)*T1) /DELTA 
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CARD NO. 


281 

285 

290 

295 

300 

305 

310 

315 

320 


30 


C 

C 

C 

31 


C 


C 


32 
C 
C 

C 

33 
C 


YLS(NT)-YYL 
YC (NT)» YLS (NT) 


CK 281 
CK 262 


D»ABS(ABS(DL)-ABS(YC(NT))) 

T1«TH(NT)*RAD 

WRITE ( JWRITE* 45 ) NT* XLS(NT)* YLS (NT)*XLS (NT)*YL$(NT)#XC (NT)#YC (NT) 
1# TK (NT) * Tl# D 
GO TO 31 

IF (LX(NT) .EQ.l) GO TO 31 


CK 

CK 

CK 

CK 

CK 

CK 


283 

284 

285 

286 
287 
286 


NT-NT+1 
LX (NT ) ■ 1 
XC(NT)«0.0 
YC (NT) * YU ( 1 ) 

XLS (NT) »0 • 0 
YLS(NT)-YL(1) 

TK(NT)«0.0 
TH (NT ) ■ 0 • 0 
D-0.0 

WRITE (JWRITE *45) NT* XC (NT ) * YC ( NT ) * XLS ( NT ) * YLS ( NT ) * XC ( NT ) * YC ( NT) # T 
IK ( NT ) *TH ( NT ) * 0 

PUNCH CAMBER AND THICKNESS DISTRIBUTIONS 

IF ( IPUNCH.NE • 5 ) GO TO 33 

WPITE (1*46) TITLE 

WRITE ( J WR ITE* 41 ) IPUNCH*TITLE#NT 

D« FLOAT (NT) 

WRITE (1*42) D 

DO 32 I * 1*NT 
J-NT+l-I 

WRITE (JVRITE*43) XC ( J ) * YC ( J ) * TK ( J ) * TH( J ) 

WRITE (1*47) XC(J)*YC(J)*TK(J)*TH(J) 

CONTINUE 

PLOT CAMBER AND THICKNESS DISTRIBUTIONS 

IF (KPLOT.EQ.O) RETURN 
PLOT CAMBER 

CALL CALPLT (4.*2.*-3) 


CK 289 
CK 290 
CK 291 
CK 292 
CK 293 
CK 294 
CK 295 
CK 296 . 
CK 297 
CK 298 
CK 299 
CK 300 
CK 301 
CK 302 
CK 303 
CK 304 
CK 305 
CK 306 
CK 307 
CK 308 
CK 309 
CK 310 
CK 311 
CK 312 
CK 313 
CK 314 
CK 315 
CK 316 
CK 317 
CK 318 
CK 319 
CK 320 
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CAPO NO 
321 

325 

330 

335 

340 

345 

350 

355 

360 


OF DECK « CAHTK 


PAGE 9 


CALL NOTATE (0.,0.*SIZ*TITLE#0.,80) 

CALL CALPLT (0..2..-3) 

CALL AXES (0.»0.#0.#20.#0.#.05>-2.#l.#3HX/C»SIZ>-3»l) 
DU-0.0 

DO 34 I-l.NT 

IF (ABS(YCd) ).GT.DU) DU- ABS ( YC { I ) ) 

34 CONTINUE 

D-.l 

IF (DU.LE.0.2. AND. DU.GT. 0.08) D-.05 
IF (DU. LE. 0.08. AND. DU. GT. 0.04) 0-.02 
IF (DU. LE. 0.04) D-.01 
DL — 4. + 0 

CALL AXES (0.,0.,90.,8.,DL»D»-1.»0. # 3HY/C»SI7#3#2) 
CALL CALPLT (0.,4.,-3) 

XC (NT+l)-YC(NT+l)-0.0 
XC (NT+2 ) - .05 
YC(NT+2)-D 
DO 35 I -1 »NT 
XUl-XC(I) /.05 
YU1-YC( I) ZD 

CALL PNTPLT (XU1.YU1.22.ISIZ) 

35 CONTINUE 

CALL LINE (XC.YC>NT»1»0>0,0.) 

C PLOT THICKNESS 

CALL CALPLT (0..6..-3) 

CALL AXES (0.»0.>0.»20.»0.». 05.-2, »1.»3HXAC»SIZ»-3»1) 
DU-0.0 

DO 36 I -1 .NT 

IF (ABS(TKd) J.GT.DU) DU-ABS(TKd) ) 

36 CONTINUE 

O-.l 

IF (DU. LE. 0.06) D-.01 

IF (DU. GT. 0.06. AND. DU. LE. 0.12) D-.02 

IF (DU. GT. 0.12. AND. DU. LE. 0.24) D-.04 

IF (DU. GT. 0.24. AND. DU. LE. 0.30) D-.05 

CALL AXES {0..0.»90..6..0.»D>-1.,0..5HT/CA2.SIZ»5,E) 

TK (NT+1 ) -0.0 

TK (NT+2 ) -D 

DO 37 I-l.NT 

XU1-XC( I) Z.05 


CK 

321 

CK 

322 

CK 

323 

CK 

324 

CK 

325 

CK 

326 

CK 

327 

CK 

326 

CK 

329 

CK 

330 

CK 

331 

CK 

332 

CK 

333 

CK 

334 

CK 

335 

CK 

336 

CK 

337 

CK 

338 

CK 

339 

CK 

340 

CK 

341 

CK 

342 

CK 

343 

CK 

344 

CK 

345 

CK 

346 

CK 

347 

CK 

346 

CK 

349 

CK 

350 

CK 

351 

CK 

352 

CK 

353 

CK 

354 

CK 

355 

CK 

356 

CK 

357 

CK 

358 

CK 

359 

CK 

360 
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CARD NO* 


361 


YUl-TKUJ/D 


CK 

361 



CALL PNTPLT ( XUl* YU1* 22* ISI Z ) 


CK 

362 


37 

CONTINUE 


CK 

363 



CALL LINE ( XC#TK»NT# 1# 0#0*0» ) 


CK 

364 

365 

C 

PLOT INPUT AIRFOIL AND AIRFOIL GENERATED BY COMBINING 


CK 

365 


c 

THICKNESS AND CAMBER DISTRIBUTIONS 


CK 

366 



CALL CALPLT (0.#8.#-3) 


CK 

367 



CALL AXES <0.,0.#0.#20.#0.#.05#-2.*l.,3HX/C,SIZ#-3#l) 


CK 

368 



CALL AXES (0.,0.# 90. »8*»-.2#. 05,-2. » 1. » 3HY/C# SIZ# 3#1 ) 


CK 

369 

370 


CALL CALPLT <0.,4.#-3) 


CK 

370 



XU(NU+l)-YU(NUU)-0.0 


CK 

371 



XU(NU4-2)-YU(NU>2)«.05 


CK 

372 



CALL LINE <XU»YU#NU»1»0>0,0.) 


CK 

373 



XL(NL+l)-YL(NL+l)-0.0 


CK 

374 

375 


XL(NL+2)-YL(NL+2l-.05 


CK 

375 



CALL LINE <XL»YL»NL,1,0#0»0.) 


CK 

376 



DO 40 I»1,NT 


CK 

377 



IJ -LX 1 1 ) 


CK 

378 



IF tIJ.EQ.O) GO TO 38 


CK 

379 

380 


XUI-XU( IJ)/.05 


CK 

380 



YU1" YU ( I J ) / .05 


CK 

381 



XL1-XLS (I )/.05 


CK 

382 



YLl«YLS<I)/.05 


CK 

383 



GO TO 39 


CK 

384 

385 

38 

XUl«XLl-XLS<I)/.05 


CK 

385 



YUl«YLI»YLS(I)/.05 


CK 

366 


39 

CONTINUE 


CK 

387 



CALL PNTPLT (XU1#YU1#22#ISIZ) 


CK 

388 



CALL PNTPLT (XL1»YL1#22#ISIZ> 


CK 

389 

390 

40 

CONTINUE 


CK 

390 



CALL NFRAME 


CK 

391 



RETURN 


CK 

392 


41 

FORMAT ( 1H1# 5X#47HTHE FOLLOWING CAMBERLINE DATA HAVE BEEN PUNCHED# 

CK 

393 



15X»7HIPUNCH-»I4//5X»8A10//5X,4HNT ■» I4//9X, 3HX/C# 7X, 3HY/C»5X»5HT/C 

CK 

394 

395 


2/ 2# 5X# 5HSL0PE ) 


CK 

395 


42 

FORMAT (F10.2) 


CK 

396 


43 

FORMAT (5X,4F10.6) 


CK 

397 


44 

FORMAT (1H1,1X#7HTITLE—#2X»8A10//32X»37H— THICKNESS AND CAMBER 

DI 

CK 

398 



1STRIBUTI0N — /Z4X# 1HI#5X#4HXU/C»6X#4HYU/C»6X#4HXL/C#6X#4HYL/C#6X» 

3H 

CK 

399 

400 


2X/C» 7X» 3HY/C# 6X»5HT/C/2# 5X»5HSL0PE»10X#5HFRR0R/) 


CK 

400 
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401 


* 5 FORMAT <T5,7F10.6»F10. 4*5X*F10.6) 

46 FORMAT (BAIO) 

AT FORMAT (4F10.6) 

END 


CK 401 
CK 402 
CK 403 
CK 404- 
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LISTING OP DECK* INTP 


PAGE 


1 


CARD NO. 


1 


SUBROUTINE INTP (THETA, X,YSMO,YPPS,NP, NOSE, CHORD, TITLE, NINT,XINT#C 

IT 

1 



1NEW, INTR, IPUNCH) 


IT 

2 


C 



IT 

3 


C 

ROUTINE TO INTERPOLATE ADDITIONAL UPPER AND LOWER SURFACE 


IT 

4 

5 

c 

COORDINATES 


IT 

5 


c 



IT 

6 


C 

CODED BY — HARRY NORGAN NASA/LARC/TAD/ AA8 1982 


IT 

7 


c 



IT 

8 



DIMENSION TITLE(8), THETA(l), XC1), YSM0<1), YPP$(1), XINTI1) 


IT 

9 

10 

c 



IT 

10 



DIMENSION XSAV( 57) 


IT 

11 


C 



IT 

12 



COMMON /INOUT/ JREAD,J WRITE, I PRINT 


IT 

13 


c 



IT 

14 

15 


COMMON /BLK1/ PI,PI2,RAD,C0NS 


IT 

15 


c 



IT 

16 



COMMON /HLM/ XU( 100 ) , YU(100 ) , XL ( 100) »YL (100) »TLS C 100 > 


IT 

17 


c 



IT 

18 


c 

STANDARD X/C COORDINATE INTERPOLATION VALUES 


IT 

19 

20 


DATA (X$AV(I),I-1»57)/0.0,.00025, .0005* .00075, .001# .0015# .002, . 

002 

IT 

20 



15, .005, .01,.02,.03,.04».05, .06,.07,.08,.09,.1,.125,.15,.175,.2, 

• 22 

IT 

21 



25,. 25,. 275,. 3,. 325,. 35,. 375,. *» .425, .45,. *75,. 5,. 525,. 55,. 575,. 

6 f • 

IT 

22 



3625,.65,.675,.7,.725,.75,.775,.e,.825,.85, . 875, . 9, .925, .95, .97,. 96 

IT 

23 



4» • 99> 1# 0/ 


IT 

24 

25 

c 



IT 

25 


c 

IF INTR EQUAL 1/ LOAD STANDARD X/C COORDINATE VALUES 


IT 

26 


c 



IT 

27 



IF (INTR.EOtO) RETURN 


IT 

28 



IF (INTR.E0.2) GO TO 2 


IT 

29 

30 


NINT-57 


IT 

30 



DO 1 I« 1# N INT 


IT 

31 


1 

XINT ( I ) «XSAV ( I ) 


IT 

32 


c 



IT 

33 


c 

INTERPOLATE UPPER SURFACE COORDINATES 


IT 

34 

35 

c 



IT 

35 


2 

WRITE ( JWR ITE #7) TITLE 


IT 

36 



XUP«X(NP)*CHORD 


IT 

37 



XNOSE*X(NOSE) *CHORD 


IT 

38 



XLO» X ( 1 )* CHORD 


IT 

39 

AO 


RATIO »C NEW/CHORD 


IT 

40 
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LISTING OF DECK! INTP 
CARD NO. 


PAGE 


2 


41 


45 


50 


55 


60 


65 


70 


75 


PO 


00 5 I- 1,NINT 

XU (I )-XINT(I )*CHORD+XNOSE 

XL(I)-XUCI) 

if (xuci).gt.xup) xum-xup 

IF C XL C I) .GT.XLO) XL(I)-XLO 
XUC I J-( XU( I )-XNOSE )*RATIO 
XL (I)-( XL ( I )-XNOSE )*RATIO 
DELTA-XINT(I) 

IF (DELTA. LE. CONS) GO TO 3 

DELTA-TAN (DELTA/CONS-1.) 

TU«PI24AL0G(DELTA4SQRTCDELTA*DELTA*1.>) 

GO TO 4 

3 TU-ACOS (1. -DELTA/CONS) 

4 TL— TU 

IF (TL.LT.THETA(l)) TL-THETAC1) 

IF (TU.GT . THETA! NP) ) TU-THETACNP) 

TLS ( I )-TL 

CALL COORO <THETA,YPPS,YSM0,NP»TU,YUm»DYDX,0Y2DX,CURV) 
Yll(I)-YU(I)*CNEW 

WRITF ( JVRITE.8) I,XU(I),YU(I),DYDX,DY20X,CURV 

5 CONTINUE 

WRITE ( JWRITE,9) CNEW 
C 

C INTERPOLATE LOWER SURFACE COORDINATES 

C 

WRITE ( JWRITE, 10) TITLE 
DO 6 I- 1»NINT 
TL-TLS(I) 

CALL COORD (THETA»YPPS»YSH0»NP,TL,YL(T1»0Y0X»0Y2DX,CURV) 
YL (I )-YL ( I }*CNEW 

WRITE ( JWRITE# 6 ) I»XL(I)»YL(I),DYDX»DY2DX,CURV 

6 CONTINUE 
C 

C PUNCH COORDINATES 

C 

IF (IPUNCH.NE.6) RETURN 
WRITE ( JWRITE# 11) CNEW,TITLE 
WRITE (1,12) TITLE 
WRITE ( JWRITE,13) NINT 
XNT-FLOAT(NINT) 


IT 

41 

IT 

42 

IT 

43 

IT 

44 

IT 

45 

IT 

46 

IT 

47 

IT 

48 

IT 

49 

IT 

50 

IT 

51 

IT 

52 

IT 

53 

IT 

54 

IT 

55 

IT 

56 

IT 

57 

IT 

58 

IT 

59 

IT 

60 

IT 

61 

IT 

62 

IT 

63 

IT 

64 

IT 

65 

IT 

66 

IT 

67 

IT 

68 

IT 

69 

IT 

70 

IT 

71 

IT 

72 

IT 

73 

IT 

74 

IT 

75 

IT 

76 

IT 

77 

IT 

78 

IT 

79 

IT 

80 
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ei 


WRITE (1,14) XNT 


IT 

81 



WRITE (JWRITE»15) (XU(I)»I-1,NINT) 


IT 

82 



WRITE ( JWRITE, 16) ( YUC I), I«1,NINT) 


IT 

83 



WRITE (1,17) (XU(I),YU(I),I a l,NINT) 


IT 

84 

85 


WRITE ( JWRITE»18) NINT 


IT 

85 



WRITE (1,14) XNT 


IT 

86 



WRITE ( JWRITE»19) ( XL(I ), I»l# NINT) 


IT 

87 



WRITE (JWRITE, 20) ( YL ( I) , I a l,NINT ) 


IT 

88 



WRITE (1,17) (XL(I),YL(I)»I a l>NINT) 


IT 

69 

90 

c 



IT 

90 


c 

RETURN TO CALLING PROGRAM 


IT 

91 


c 



IT 

92 



RETURN 


IT 

93 


c 



IT 

94 

95 

7 

FORMAT (1H1,5X,9HTITLE— ,8A10//26X,42H— UPPER SURFACE 

INTERPOLAT 

IT 

95 



IE D COORDINATES — //9X, 1HI, 10X, 2HXU, 13X, 2HYU, 11X, 5HDY/0X, 

6X# 11HD ( DY/ 

IT 

96 



2DX)m, 6X,9HCURVATURE) 


IT 

97 


8 

FORMAT <I10,2F15.6,3E15.6) 


IT 

98 


9 

FORMAT ( / 10X, 7HCH0RD a ,F10.6) 


IT 

99 

100 

10 

FORMAT (1H1,5X,9HTITLE— ,8A10//26X,42H— LOWER SURFACE 

INTERPOLAT 

IT 

100 



1ED COORDINATES— //9X, 1HI, 10X, 2HXL, 13X, 2HYL, 11X,5HDY/0X,6X,11HD ( DY/ 

IT 

101 



20X)/0X#6X,9HCURVATURE) 


IT 

102 


11 

FORMAT (1H1*10X> 50HTHE FOLLOWING DATA HAVE BEEN PUNCHED 

FOR A CHOR 

IT 

103 



ID «,F10.6//3X, 9HTITLE-- ,8A10) 


IT 

104 

105 

12 

FORMAT ( 6 A10 ) 


IT 

105 


13 

FORMAT ( 5 X» 4HNU -,I4> 


IT 

106 


14 

FORMAT (F10.2) 


IT 

107 


15 

FORMAT ( 5X# 4HXU 8F10.6/ ( 9X, 8F10.6) ) 


IT 

108 


16 

FORMAT ( 5X* 4HYU 8F10 . 6/ ( 9X 9 8F 10. 6 ) ) 


IT 

109 

110 

17 

FORMAT (2F10.6) 


IT 

110 


18 

FORMAT ( 5 X# 4HNL -#I4) 


IT 

111 


19 

FORMAT ( 5 X >4HXL ■# 8F10 .6/ < 9X, 8F10 .6 ) > 


IT 

112 


20 

FORMAT ( 5X# 4HYL «» 8F10 . 6/ < 9X, 8F 10. 6 )) 


IT 

113 



END 


IT 

114 
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1 


5 


10 


15 


20 


25 


30 


35 


AO 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


1 

2 


3 


A 


SUBROUTINE COORD ( THETA# YPPS# Y$HO,NP,TI, YI, DYDX,DY2DX,CURV ) 

ROUTINE TO COMPUTE THE Y COORDINATE# DY/DX# D(OY/DX)/DX, AND 
CURVATURE AT A GIVEN VALUE OF THETA 

CODED BY -- HARRY MORGAN NASA/LARC/TAD/ AAB 1982 

DIMENSION THETA ( 1 ), YPPSU)# YSMG(l) 

COMMON /BLK1/ PI, PI2,RAD,C0NS 

COSH(X)«(EXP(X)+EXP(— X))/2* 

SINH(X) -(EXP(X)-EXP(-X) )/2. 


CD 

CD 

CD 

CD 

CD 

CO 

CD 

CD 

CD 

CD 

CD 

CD 

CD 


DO 1 K-2,NP rn 

J-K-l CD 

IF (TI.GE*THETA(J) •AND*TI#LE«THETA( K) ) GO TO 2 CD 

CONTINUE co 

DELTA-THETA (JU)-THETAU) CD 

T 2 -THEY A ( J*1 )-TI CD 

Tl-TI-THETAU) co 

YI-YPPS U)MT2*A3/<6.*DELTA)-T2*DELTA/6.>+YPPS(J+l)*<Tl**3/<6.9DEL CD 
IT A )-Tl*DELTA/6« )♦( YSM0< J)*T2+Y$M0( J-t-l)*Tl) /DELTA CD 

YPI-YPPS(J)*(DELTA/6«-T2*‘T2/(2.*DELTA)) +YPPS { J+l )* (T1*T1/ ( 2«*DELTA CD 
l)-DELTA/6. )♦ ( YSM0( J+D-YSMOC J ) ) /DELTA CD 

YP PI- (YPPSm*T2 + YPP$<J+l)ATl) /DELTA CD 

DELTA-YPI co 

IF ( TI • LE • 0* 0 ) DELTA— DELTA CD 

TP-ABS(Tl) CD 

IF (TP.GT.PI2) GO TO 3 CD 


GP-CONS *S INC TP ) 

GPP-CONS*COS(TP) 

GO TO A 

T1-C0$H(TP-PI2) 

T2-SINH (TP-PI2) 

GP-CONS /Tl 

GPP— C0NS*T2/(T1*T1) 

IF CTP.LE.0.0.0R«GP#EQ*0#0) GO TO 5 
DYDX-DELTA/GP 

DY2DX-C YPPI*GP-DELTA*GPP)/<GP**3> 


CD 

CD 

CD 

CD 

CD 

CD 

CD 

CO 

CD 

CD 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

1A 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 
3A 

35 

36 

37 
36 
39 
AO 
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CARD NO. 


CURV*AB$( DY2DX) /(SQRT(1«+DYDX**2)**3) 

CD 

41 

RETURN 

CD 

42 

DYDX-0.1E99 

CD 

43 

DY2DX*0« 1E99 

CD 

44 

CURV»CONSMDELTA*DELTA) 

CD 

45 

RETURN 

CD 

46 

END 

CD 

47 
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LISTING OF DECK! SINH 
CARD NO. 


PAGE 


1 


1 


5 


FUNCTION SINHCX) 

C HYPERBOLIC SINE 

$INH»0,5*(EXP(X)-EXPt-Xn 

RETURN 

END 


SH 1 
SH 2 
SH 3 
SH 4 
SH 5 
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PAGE 


1 


CARD NO* 


FUNCTION COSH(X) 

CH 

1 

HYPERBOLIC COSINE 

CH 

2 

C0$H«0*5*(EXP(X)+EXP(-X)) 

CH 

3 

RETURN 

CH 

A 

END 

CH 

5- 
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APPENDIX B 


COMPUTER LISTING OF AIRFOIL SCALING PROGRAM AFSCL 
This appendix contains a computer listing of the airfoil scal- 
ing program AFSCL which consists of a main program and two sub- 
routines . 
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LISTING 
CARO NO 
l 

5 

10 

15 

20 

25 

30 

35 

40 


OF DECK! SCALE 


PAGE 1 


PROGRAM SCALE( INPUT* OUTPUT* TAPE 5 ■ IN PUT; TAPE 6* OUTPUT* TAPED 
C 

C THIS PROGRAM PRESENTS A TECHNIQUE FOR SCALING THE COORDINATES OF 

C AN AIRFOIL FROM ITS INPUT MAXIMUM THICKNESS RATIO TO A DESIRED 

C OUTPUT MAXIMUM THICKNESS RATIO 
C 

C CODED BY — HARRY MORGAN NASA/LARC/TAD/AAB 1982 

C 


c* * 

c* DESCRIPTION OF INPUT CARDS FOR SCALING PROGRAM ♦ 

C* * 

c* 



9 m w m T 

c* 

CARD 

NUMBER DESCRIPTION 


c* 




c*« 

• « • • 



c* 

1 

FORMAT ( 8A10) 

• •••" 

C* 

C*« 


TITLE CARD 


C* 

2 

FORMAT C 4F10«0) 

t • • •* 

c* 


NT - NUMBER OF INPUT CAMBER* THICKNESS* AND SLOPE 


c* 


POINTS 


c* 


I PLOT - PLOT OPTION 


c* 


0 - NO PLOTS DESIRED 


c* 


1 - PLOTS DESIRED 


c* 


I PUNCH - PUNCH OUTPUT OPTION 


c* 


0 - NO PUNCHED OUTPUT DESIRED 


c* 


1 - PUNCH COORDINATES OF SCALED AIRFOIL 


c* 


IOP - SLOPE OF CAMBERLINE OPTION 


c* 


0 - SLOPES INPUT ON CARD 3 


c* 


1 - SLOPES COMPUTED BY PROGRAM 


CR, 




c* 

3 

F0RMAT(4F10.0) 

• • • • ™ 

ct 


XC - X/C COORDINATES OF CAMBERLINE 


c* 


YC - Y/C COORDINATES OF CAMBERLINE 


c* 


TK - T/C/2 THICKNESS DISTRIBUTION 


c* 


TH - SLOPE OF CAMBERLINE IN RADIANS 


c* 


NOTE — CARD 3 IS READ NT TIMES 


c*. 





SC 1 
SC 2 
SC 3 
SC 4 
SC 5 
SC 6 
SC 7 
SC 8 
SC 9 
SC 10 
SC 11 
SC 12 
SC 13 
SC 14 
SC 15 
SC 16 
SC 17 
SC 18 
SC 19 
SC 20 
SC 21 
SC 22 
SC 23 
SC 24 
SC 25 
SC 26 
SC 27 
SC 28 
SC 29 
SC 30 
SC 31 
SC 32 
SC 33 
SC 34 
SC 35 
SC 36 
SC 37 
SC 38 
SC 39 
SC 40 
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CARO NO. 


41 

C* 

c* 

c*#« 

4 FORMAT ( F10» 0) 

LT - NUMBER OF DESIRED OUTPUT MAXIMUM 

THICKNESS RATIOS 

♦ 

♦ 

SC 

sc 

sc 

41 

42 

43 


c* 

5 FORMAT C F10* 0) 


♦ 

SC 

44 

45 

c* 

TKNEW - DESIRED OUTPUT MAXIMUM THICKNESS RATIO 

♦ 

sc 

45 


c* 

NOTE — CARD 5 IS READ LT TINES 


♦ 

sc 

46 


€*•, 




SC 

47 


c* 



♦ 

J A# 

SC 

40 


c* 

RESTRICTIONS! 


♦ 

sc 

49 

50 

c* 

NT NOT GREATER THAN 101 


* 

sc 

50 


c* 

LT NOT GREATER THAN 10 


♦ 

sc 

51 


c* 

XC MUST BE MONOTONICALLY INCREASING 


♦ 

sc 

52 


c* 



* 

sc 

53 


C ********************** ******** ***************** t*********************** 

sc 

54 

55 

c 




sc 

55 



DIMENSION XC(101)# YC(lOl), TKU01J# THC101)# 

THETAl 101)# VPPI101) 

sc 

56 



It TKNEW ( 10) t TITLE (8 )# VAR(4) 



sc 

57 


C 




sc 

58 



COMMON /HIM/ WK ( 404# 3 ) 



sc 

59 

60 

c 




sc 

60 



COMMON /BLK1/ PI# PI2#RAD»C0NS 



sc 

61 


c 




sc 

62 



COMMON /INOUT/ JREAD# JURITE# IPRINT 



sc 

63 


c 




sc 

64 

65 


SINH(X) «0.5*(EXP(X)-EXP(-X)) 



sc 

65 


c 




sc 

66 


c 

INITIALIZE PROGRAM CONSTANTS 



sc 

67 


c 




sc 

68 



JVRITE-6 



sc 

69 

70 


JREAD-5 



sc 

70 



I PRINT* 0 



sc 

71 



NTMAX-101 



sc 

72 



PI«AC0S(-1.) 



sc 

73 



PI2-PI/2. 



sc 

74 

75 


RAD* 180 . / PI 



sc 

75 



CONS «1./(1.*ATAN(SINH(PI2))) 



sc 

76 


c 




sc 

77 


c 

READ AND PRINT INPUT DATA 



sc 

78 


c 




sc 

79 

80 

1 

READ (JREAD.26) TITLE 



sc 

80 


138 



LISTING OF 
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PAGE 

3 

CARD NO* 





61 


IF ( EOF ( JREAD) ) 25,2 

SC 

81 


2 

READ (JREAD, 27) VAR 

SC 

62 



NT"IFIX (VAR ( 1 ) ) 

SC 

63 



IF (NT.GT.NTMAX) GO TO 24 

sc 

84 

85 


IPL0T»IFIX(VAR(2)> 

sc 

85 



IF (IPLOT.NE.O) IPLOT-l 

sc 

86 



I PUNCH* IF IX (VAR ( 3) ) 

sc 

87 



IF (IPUNCH.NE.O) IPUNCH-1 

sc 

88 



I0P»IFIX(VAR(4J) 

sc 

89 

90 


IF (IOP.NE.O) IOP-1 

sc 

90 



WRITE (JWRITE,28) TITLE, NT, IPLOT,IPUNCH, TOP 

sc 

91 



READ (JREAD, 29) ( XC ( I ), YC ( I ), TK ( I ),TH(I >, I»1,NT) 

sc 

92 



WRITE ( JWRITE,30) ( XC ( I ), 1*1, NT ) 

sc 

93 



WRITE (JWRITE,31) ( YC ( I ), 1*1, NT ) 

sc 

94 

95 


WRITE ( JWRITE»32) (TK( I ), I*1,NT) 

sc 

95 



IF (IOP.EQ.O) WRITE (JWRITE,33) (TH( I) ,I«1,NT) 

sc 

96 



READ (JREAD, 34) VAR(l) 

sc 

97 



LT-IFIX(VARd)) 

sc 

96 



IF (LT.LE.O) GO TO 1 

sc 

99 

100 


IF (LT.GT.10) LT*10 

sc 

100 



READ (JREAD, 34) (TKNEW(I),I-1,LT) 

sc 

101 



WRITE ( JWRITE,35) LT, ( TKNEWil ) , I»1,LT) 

sc 

102 


C 


sc 

103 


C 

INITIALIZE PLOTTING DEVICE 

sc 

104 

105 

C 


sc 

105 



CALL PSEUDO 

sc 

106 



CALL LEROY 

sc 

107 


C 


sc 

108 


C 

CHECK FOR INCREASING XC 

sc 

109 

110 

C 


sc 

110 



DO 3 1*2, NT 

sc 

111 



IF (XC(I).LE.XC(I-l)) GO TO 4 

sc 

112 


3 

CONTINUE 

sc 

113 



GO TO 5 

sc 

114 

115 

4 

WRITE ( JWRITE, 36) 

sc 

115 



GO TO 1 

sc 

116 


C 


sc 

117 


C 

FIND MAXIMUM THICKNESS RATIO OF INPUT AIRFOIL 

sc 

lie 


c 


sc 

119 

120 

c 

COMPUTE THETA EQUIVALENT OF XC 

sc 

120 


139 



LISTING OF DECK * SCALE PAGE 4 

CAPO NO. 


121 

5 

CHORD-XCCNT)-XC(l) 

SC 

121 



DO 7 I-1»NT 

SC 

122 



DELTA»( XC (I)-XC(l) ) /CHORD 

SC 

123 



IF (DELTA. LE. CONS) GO TO 6 

SC 

12A 

125 


D E LT A»T AN (DELTA/ CON S-l » ) 

SC 

125 



THETA(I)»PI2+AL0G(DELTA+SQRT(DELTA*DELTA+1.)) 

SC 

126 



GO TO 7 

SC 

127 


6 

THETAd )«ACOS ( 1. -DELTA /CONS ) 

SC 

128 


7 

CONTINUE 

SC 

129 

130 

C 

FIT CUBIC SPLINE THRU TK VS THETA 

sc 

130 



CALL CUBS PL (THETA,TK, YPP,NT,WK) 

sc 

131 


c 

FIND LOCATIONS WHERE D(TK)/D(THETA) ■ 0.0 

sc 

132 



KRT-0 

sc 

133 



Nl-NT-1 

sc 

13A 

135 


DO 12 I»1,N1 

sc 

135 



DELTA«THETA(I+1)-THETA(II 

sc 

136 



AA-(YPP(I)-YPP(I+1> )/(2,*DELTA) 

sc 

137 



BB-(YPP(I + l)*THETA(I)-YPP(I)*THETAd+l) J/DFITA 

sc 

138 



CC-(YPP(imHETA(Id)**2-YPP(I+l)*THETA(I)**2)/{2.*DELTA>-MYPP(I+l 

sc 

139 

1 AO 


l)-YPP(I))*DELTA/6.-(TK(I+l )— TK (I )) /DELTA 

sc 

1 AO 



GP»BB*BB-4.*AA*CC 

sc 

1A1 



IF ( GP > 12*8,8 

sc 

1A2 


8 

GP-SQRT(GP) 

sc 

1 A3 



Tl-(-BB+GP)/(2,*AA) 

sc 

1AA 

1A5 


T2-(-BB-GP)/(2.*AA) 

sc 

1A5 



IF (T1.GE.THETA(I).AN0.TI.LE.THETA(I+1) ) GO TO 9 

sc 

1A6 



GO TO 10 

sc 

1A7 


9 

KRT-KRT+1 

sc 

1 A8 



WK(KRT, l)»Tl 

sc 

1A9 

150 

10 

IF (T2.GE.THETA(I).AN0.T2.LE.THETA(I+1J) GO TO 11 

sc 

150 



GO TO 12 

sc 

151 


11 

KRT-KRT+1 

sc 

152 



WK (KRT, 1 ) »T? 

sc 

153 


12 

CONTINUE 

sc 

15 A 

155 


IF (KRT.FO.O) GO TO 16 

sc 

155 


C 

COMPUTE XC LOCATIONS WHERE D ( TK ) /D ( THETA ) ■ 0.0 

sc 

156 



DO 15 I>1,KRT 

sc 

157 



Tl-ABS(WK(I,1) ) 

sc 

158 



IF (T1.LE.PI2) WK ( I, 2 ) “CONS* ( 1,-COS (T1 ) ) 

sc 

159 

160 


IF (T1.GT.PI2) WK( I, 2 ) •CONS+( AT AN ( SINH(T1— P 12 ) ) ♦! . ) 

sc 

160 


140 
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161 


DO 13 J"1>N1 

SC 

161 



Jl-J 

SC 

162 



J2"J+1 

SC 

163 



IF (WK(I»1).GE»THETA(4) • AND .WK ( I> 1 ).LE.THETA(J+1) ) GO TO 14 

SC 

164 

165 

13 

CONTINUE 

SC 

165 


14 

A A "THETA ( J2 )-WK ( I» 1 ) 

SC 

166 



8B*WK(I»1 )— THETA ( J 1 ) 

SC 

167 



DELTA"THETA(42)-THETA(41) 

SC 

166 


15 

WK(I,3)"YPP(41)*(AA**3/(6.*DELTA)-AA*DELTA/6.)*YPP(42)*(BB**3/(6.* 

SC 

169 

170 


1DELTA)-BB*DELTA/6.)*(TK(41)*AA+TK(42)*BB) /DELTA 

SC 

170 


16 

CONTINUE 

SC 

171 


C 

COMPUTE AND PRINT MAXIMUM THICKNESS RATIO 

SC 

172 



IF (KRT.EO.O) GO TO 23 

SC 

173 



TKMAX-0.0 

sc 

174 

175 


DO 18 I»1»KRT 

sc 

175 



IF (WK{ 1,3). GE. TKMAX) GO TO 17 

sc 

176 



GO TO 18 

sc 

177 


17 

N1"I 

sc 

178 



TKMAX"WK ( I» 3 ) 

sc 

179 

180 

18 

CONTINUE 

sc 

180 



TKMAX"2.*TKMAX 

sc 

181 



DELTA«WK(N1,2)*CH0RD*XC(1) 

sc 

182 



WRITE ( 4WRITE, 37) TKMAX, DELTA 

sc 

183 



IF (TKMAX. LE. 0.0) GO TO 1 

sc 

184 

185 

C 


sc 

185 


C 

IF IOP-1, COMPUTE SLOPES OF CAMBERLINE 

sc 

186 


C 


sc 

187 



IF (IOP.NE.l) GO TO 21 

sc 

186 



CALL CUBS PL ( XC, YC#YPP,NT, VK> 

sc 

189 

190 


DO 20 I "1 ,NT 

sc 

190 



IF (I.EQ.NT) GO TO 19 

sc 

191 



DELTA-XC(I+1)-XC(I) 

sc 

192 



TH(IJ— YPP(I)*DELTA/3.-YPP(I+l)*DELTA/6.+(YC(I+l)-YCCI> ) /DELTA 

sc 

193 



GO TO 20 

sc 

194 

195 

19 

DELTA-XCCNT)-XC(NT-l) 

sc 

195 



TH(I)-YPP(NT-l)*DELTA/6.+YPP(NT)*DELTA/3.+(YC(NT)-YC (NT-1)) /DELTA 

sc 

196 


20 

TH(I)"ATAN(TH(I) ) 

sc 

197 


C 


sc 

198 


C 

COMPUTE AND PRINT COORDINATES OF INPUT AIRFOIL 

sc 

199 

200 

C 


sc 

200 
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PAGE 


6 


201 

21 

CALL SCTK (XC*YC*TK*TH*NT#TITLE>TKHAX»TKMAX,IPUNCH>IPLOT>IERR) 

SC 

201 



IF (IERR.NE.0) GO TO 1 

sc 

202 


C 


sc 

203 


C 

COMPUTE AND PRINT COORDINATES OF SCALED AIRFOILS 

sc 

204 

205 

C 


sc 

205 



DO 22 I-l.LT 

sc 

206 



CALL SCTK (XC»YC#TK»TH*NT»TITLE»TKNEW(I)*TKMAX» I PUNCH# I PLOT# IERR ) 

sc 

207 



IF (IERR.NE.0) GO TO 1 

sc 

206 


22 

CONTINUE 

sc 

209 

210 

C 


sc 

210 


C 

READ NEXT CASE 

sc 

211 


c 


sc 

212 



GO TO 1 

sc 

213 


c 


sc 

214 

215 

c 

PRINT ERROR MESSAGE 

sc 

215 


c 


sc 

216 


23 

WRITE ( JWRITE* 38) 

sc 

217 



GO TO 1 

sc 

218 


2 A 

WRITE ( JWRITE# 39) NTMAX 

sc 

219 

220 


GO TO 1 

sc 

220 


C 


sc 

221 


C 

FINALIZE PLOTTING DEVICE 

sc 

222 


C 


sc 

223 


25 

CALL CALPLT (0. *0**999) 

sc 

224 

225 


STOP 

sc 

225 


C 


sc 

226 


26 

FORMAT ( 8A10 ) 

sc 

227 


27 

FORMAT (AF10.6) 

sc 

228 


28 

FORMAT ( 1H1* 57X* 14H — INPUT DATA — //5X*7HTITLE — »2X*8A10F/5X*3HNT-, 

sc 

229 

230 


1I3»5X*6HIPL0T«#I3#5X»7HIPUNCH»#I3# 5X#4HI0P«#I3) 

sc 

230 


29 

FORMAT (4F10.6) 

sc 

231 


30 

FORMAT (/4X,«HX/0#8E15.6/(8X*8E15.6)) 

sc 

232 


31 

FORMAT (MX,4HY/C«»8E15.6/(8X,8E15.6)) 

sc 

233 


32 

FORMAT U2X,6HT/C/2-»8El5.6M8X,8E15.6) ) 

sc 

234 

235 

33 

FORMAT (/2X*6HSL0PE«»8E15.6/(8X»8E15.6)) 

sc 

235 


3 A 

FORMAT (F10.2) 

sc 

236 


35 

FORMAT (/2X*3HLT-»I3*5X»9HNEW T/C «*10F12.6) 

sc 

237 


36 

FORMAT (75X*<tOHXC ARRAY IS NOT MONOTONICALL V INCREASING) 

sc 

236 


37 

FORMAT </5X*28H(T/C)HAX FOR INPUT AIRFOIL -*F10.6»2X*8HAT X/C ■» 

sc 

239 

2 AO 


IF 10. 6) 

sc 

240 
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241 


38 FORMAT (//5X»64H<T/C)MAX OF INPUT AIRFOIL WAS NOT FOUND — CHECK Y SC 241 

10UR INPUT DATA) SC 242 

39 FORMAT <//5X»35HINPUT CARO ERROR - NT GREATER THAN #14) SC 243 

END SC 244- 


143 
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CARD NO. 


1 


SUBROUTINE SCTK ( XC, YC,TK,TH, NT, TITLE, TKNEW,TKMAX, IPUNCH, IPLOT, IER 

SK 

1 



1R) 

SK 

2 


C 


SK 

3 


C 

THIS SUBROUTINE SCALES THE COORDINATES OF AN AIRFOIL FROM A BASIC 

SK 

4 

c 

C 

MAXIMUM THICKNESS RATIO (TKMAX) TO A NEW MAXINUN THICKNESS RATIO 

SK 

5 


c 

( TKNEW) 

SK 

6 


c 


SK 

7 


c 

CODED BY — HARRY MORGAN NASA/LARC/TAD/AAB 1982 

SK 

8 


c 


SK 

9 

10 


DIMENSION XC(1), YC < 1 > » TK(1)» THU), TITLE ( 8) 

SK 

10 


c 


SK 

11 



COMMON /HLM/ X ( 220 ) ,Y ( 220) , XU< 110) , YU( 110 J, XL U10 ),YL ( 110) ,XPRT ( 11 

SK 

12 



10),YPRT(110),TPRT(110) 

SK 

13 


c 


SK 

14 

15 


COMMON /BLK1 / PI, PI2, RAD, CONS 

SK 

15 


c 


SK 

16 



COMMON /INOUT/ JREAD,J WRITE, I PRINT 

SK 

17 


c 


SK 

18 


c 

SCALE THICKNESS AND COMPUTE UPPER AND LOWER SURFACE COORDINATES 

SK 

19 

20 

c 

OF NEW AIRFOIL 

SK 

20 


c 


SK 

21 



IERR-0 

SK 

£2 



DELT1-TKNEW/TKMAX 

SK 

23 



DO 1 I-1,NT 

SK 

24 

25 


DELT2“C0S { TH ( I ) ) 

SK 

25 



DELTA»SIN(TH(I) ) 

SK 

26 



XU(I)-XC( I)-TKCI)*DELT4+DELT1 

SK 

27 



YU(I)«YC(I)+TK(I)*DELT2*DELT1 

SK 

28 



XL(I)-XC(I)+TK(I)*DELT4*DELT1 

SK 

29 

30 

1 

YL(I)»YCm-TK(I)*DELT2*DELTl 

SK 

30 


c 


SK 

31 


c 

LOAD SURFACE COORDINATES INTO X AND Y ARRAYS 

SK 

32 


c 


SK 

33 



DO 2 I* 1, NT 

SK 

34 

35 


J-NTU-I 

SK 

35 



xm-xL(j) 

SK 

36 


2 

Y(I)-YL CJ) 

SK 

37 



N-NT 

SK 

38 



M-l 

SK 

39 

40 


IF (XU(1) .E0.XL(1).AND.YU(1).EQ.YL(1)) N-2 

SK 

40 
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2 


card no. 


41 


DO 3 I* H* NT 

SK 

41 



N-N + l 

SK 

42 



X « N| -XU Cl) 

SK 

43 


3 

Y(N)-YU(I ) 

SK 

44 

45 

C 


SK 

45 


C 

INTERPOLATE OR EXTRAPOLATE TRAILING EDGE COORDINATES 

SK 

46 


C 


SK 

47 



IF (X(l)-X(N)) 4*6,5 

SK 

48 


4 

DELT1»X ( 2 )-X (1 ) 

SK 

49 

50 


DE LT2*X ( 3 )-X ( 1 ) 

SK 

50 



DELT3*Y ( 2 )-Y ( 1 ) 

SK 

51 



DELT 4*Y ( 3 )-Y < 1 ) 

SK 

52 



Y(l)-Y( 1)+(X(N)-X(1) )*<(DELT3*DELT2-DELT4*DELT1)*{X(N)-X(1))+CDELT 

SK 

53 



14*DELT1*DELT1-DELT3*DELT2*DELT2) > / < DELT2*0ELTI*0ELT1-DELT1*DELT2*D 

SK 

54 

55 


2ELT2 ) 

SK 

55 



X ( 1 ) *X( N ) 

SK 

56 



GO TO 6 

SK 

57 


5 

DELTl«X(N-l)-X(N-2) 

SK 

56 



DELT2-X(N)-X(N-2) 

SK 

59 

60 


0ELT3»Y(N-l)-Y<N-2) 

SK 

60 



DELT4-Y(N)-Y(N-2) 

SK 

61 



Y(N)*Y(N-2)+(X(l)-X(N-2))*( (DELT3*DELT2-DELT4*DELT1) *( X < 1 ) -X(N-2 ) ) 

SK 

62 



1+ ( DELT4*DELT1*DELT1-D£LT3»DELT2*DELT2 ) ) / t DELT2*DELT1*0ELT1-DELT 1*D 

SK 

63 



2ELT2+DELT2) 

SK 

64 

65 


X (N) «X( 1 ) 

SK 

65 


C 


SK 

66 


c 

COMPUTE LONGEST CHORD 

SK 

67 


c 


SK 

66 


6 

CH0RD*0#0 

SK 

69 

70 


DO 8 I-2*N 

SK 

70 



DELT-Xf l)-X(I) 

SK 

71 



IF (DELT. GT. CHORD) GO TO 7 

SK 

72 



GO TO 8 

SK 

73 


7 

CHORD-DELT 

SK 

74 

75 


NOSE«I 

SK 

75 


ft 

CONTINUE 

SK 

76 


C 


SK 

77 


c 

ADJUST COORDINATES FOR LONGEST CHORD 

SK 

78 


c 


SK 

79 

80 


DELT-X(NOSE) 

SK 

60 
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CARD NO. 


01 


DO 9 I-1*N 




SK 

81 



X ( I ) >(X (I )-DELT) /CHORD 




SK 

82 


9 

Y( I)»Y{ I) /CHORD 




SK 

83 


C 





SK 

84 

85 

c 

CHECK UPPER AND LOWER 

SURFACE X VALUES 

TO DETECT CROSSOVER OF 

SK 

85 


c 

PERPENDICULARS TO CAMBERLINE 

AND TO FINO NOSE POINT 

SK 

86 


c 





SK 

87 



DO 10 I-2#N0SE 




SK 

88 



IF (X(I)-X(I-l)) 10*20.20 



SK 

89 

90 

10 

CONTINUE 




SK 

90 



J-NOSE+l 




SK 

91 



00 11 I * J #N 




SK 

92 



IF (XCI)-X(I-l)) 20*20*11 



SK 

93 


11 

CONTINUE 




SK 

94 

95 

c 





SK 

95 


c 

LOAD COORDINATES INTO 

UPPER 

AND LOWER SURFACE ARRAYS 

SK 

96 


c 





SK 

97 



DO 12 I-WNOSE 




SK 

98 



J-NQSE+l-I 




SK 

99 

100 


XL(I).X(J) 




SK 

100 


12 

YLCn-Y(J) 




SK 

101 



DO 13 I »NOSE ; N 




SK 

102 



4-I+l-NOSE 




SK 

103 



XU(J)-XU) 




SK 

104 

105 

13 

YU(J)-Y(I) 




SK 

105 



NL-NOSE 




SK 

106 



NU-N-NOSE+1 




SK 

107 


C 





SK 

108 


C 

PRINT SCALED SURFACE COORDINATES 


SK 

109 

110 

C 





SK 

110 



WRITE ( JWRITE# 21 ) TITLE# TKNEW 



SK 

111 



J*NU 




SK 

112 



IF (NL.GT.NU) J-NL 




SK 

113 



DO 1 A I«1*J 




SK 

114 

115 


IF (I.LE.NU.AND.I.LE.NL) 

WRITE 

( JWRITE* 22 ) 

T»XU(I)*YU(I)*XL(I)*YL( 

SK 

115 



ID 




SK 

116 



IF (I.LE.NU.ANO.I.GT.NL) 

WRITE 

( J WRITE; 22 ) 

I*XU( I )*YU( I ) 

SK 

117 



IF ( I • GT*NU« AND* I «LE «NL ) 

WRITE 

CJWRITE» 23 ) 

I*XL(I )»YL(II 

SK 

118 


14 

CONTINUE 




SK 

119 

120 

c 





SK 

120 
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CAPO NO* 




121 

C 

PRINT CAMBER AND THICKNESS DISTRIBUTIONS 

SK 121 


C 


SK 122 



WRITE ( JWRITE, 24 ) TITLE, TKNEW 

SK 123 



DELT4-TKNEW/TKHAX 

SK 124 

125 


DO 15 I*1»NT 

SK 125 



XPRT(I)*(XC(I )-DELT) /CHORD 

SK 126 



YPRT(I)»YC(I) /CHORD 

SK 127 



TPRT(I)*TK(I)*0ELT4 

SK 128 



DELT3*2.0*TPRT(I) 

SK 129 

130 


DELT1*TH( I )*RAD 

SK 130 


15 

WRITE ( JWRITE» 25) I, XPRT( I ) , YPRT( I ) ,DELT1,DELT3 

SK 131 


C 


SK 132 


c 

PUNCH DESIRED OUTPUT DATA 

SK 133 


c 


SK 134 

135 


IF <IPUNCH.EO.O) GO TO 16 

SK 135 



WRITE (JWRITE, 26) ( TITLE< I ) , 1-1, 6) , TKNEW 

SK 136 



WRITE ( 1# 27) (TITLE (I)»I«1, 6), TKNEW 

SK 137 



WRITE ( JWRITE, 28 ) NU 

SK 138 



DELTl-FLQAT(NU) 

SK 139 

140 


WRITE (1,29) DELT1 

SK 140 



WRITE ( JWRITE, 30 ) ( XU ( I ), I*1,NU ) 

SK 141 



WRITE ( JWRITE, 31 ) ( YU ( I ) , I* 1, NU ) 

SK 142 



WRITE (1,32) ( XU (I), YU (I), 1*1, NU) 

SK 143 



WRITE (JWRITE, 33) NL 

SK 144 

145 


DELTl-FLOAT(NL) 

SK 145 



WRITE (1,29) DELT1 

SK 146 



WRITE (JWRITE, 34) ( XL ( I ) , I* 1,NL ) 

SK 147 



WRITE (JWRITE, 35) ( YL ( I ), 1*1, NL > 

SK 148 



WRITE (1,32) (XL(I),YL(I),I*1,NL) 

SK 149 

150 

16 

IF (IPLOT.EO.O) RETURN 

SK 150 


C 


SK 151 


C 

PLOT AIRFOIL SHAPE AND CAMBER AND THICKNESS DISTRIBUTIONS 

SK 152 


C 


SK 153 


c 

LABEL PLOT 

SK 154 

155 


CALL CALPLT <2.,0.,-3) 

SK 155 



CALL NOTATE (0.»0.,.40,44HPL0T OF AIRFOTL GENERATED BY SCALING 

PRO SK 156 



1GRAM,0.,44) 

SK 157 



CALL NOTATE (16.0,0.,.40,10H(T/C)MAX -,0.,10) 

SK 158 



CALL NUMBER (20.0,0., .40, TKNEW, 0.0, 3) 

SK 159 

160 


CALL NOTATE ( 0., 1., .40, TITLE, 0., eO) 

SK 160 
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161 

165 

170 

175 

100 

185 

190 

195 

200 


C PLOT AIRFOIL 

CALL AXES <0.»4.*0.>20.,0.0».05*-2.*l.»3HX/C».40»-3*l) 
CALL AXES (0.»4.>90,'8.»-.2*.05*-2.*l.*3HY/C*.40,3*l) 

CALL CALPLT (0**6., -3) 

X(N+1)-Y(N+1)»0.0 
X(N+2) B Y(N+2)".05 
CALL LINE (X'Y'N'1'0* 0*0*0) 

C PLOT CAMBER DISTRIBUTION 

CALL CALPLT (0.*6.*-3) 

CALL AXES {0.*0.*0.*20.*0.*.05*-2.*l.*3HX/C*.40»-3*l) 

DELT1-0.0 

00 17 I-1'NT 

IF (APS(YPRTtl) ).GT.DELT1) DELT1-ABS ( YPRT < I ) ) 

17 CONTINUE 
DELT2-.1 

IF (DELT1.LE.0.2.AND*DELT1.GT*0.08) DELT2-.05 
IF (DELTl.LE.O.Oe.AND.DELTl.GT.0.04) 0 ELT 2-.02 
IF (DELT1.LE.0.04) DELT2-.01 
DELT1— 4.PDELT2 

CALL AXES <0.*0.*90.*8.*DELT1*DELT2*-1.,0.#3HY/C* .40*3*2) 
CALL CALPLT (0.*4.,-3) 

XPRT(NT+1)"YPRT(NT+1)"0*0 

XPRT (NT +2 ) ■ .05 

YPRT(NT+2)-DELT2 

DO 18 I »1 *NT 

DELT3-XPRT(I)/.05 

DELT4-YPRT(I)/DELT2 

CALL PNTPLT (DELT3*DELT4*22»3) 

18 CONTINUE 

CALL LINE (XPRT'YPRT'NT'1'0'0,0.) 

C PLOT THICKNESS DISTRIBUTION 

CALL CALPLT <0.*6,*-3) 

CALL AXES (0.'0.'0.'20.'0.'.05'-2.'l.'3HX/C'.40'-3'l) 

CALL AXES <0.»0.,90.*7.*0.*.02*-1.*0.*5HT/C/2».40*5*2) 

TPRT (NT + 1 ) »0« 0 

TPRTCNT+2J-.02 

DO 19 1*1, NT 

DELT3-XPRT(I)/.05 

0ELT4-TPRT(I)/.02 

CALL PNTPLT ( DELT3.DELT4' 22» 3 ) 


SK 161 
SK 162 
SK 163 
SK 164 
SK 165 
SK 166 
SK 167 
SK 168 
SK 169 
SK 170 
SK 171 
SK 172 
SK 173 
$K 174 
SK 175 
SK 176 
SK 177 
SK 176 
SK 179 
SK 180 
SK 181 
SK 182 
SK 183 
SK 184 
SK 185 
SK 186 
SK 187 
SK 188 
SK 189 
SK 190 
SK 191 
SK 192 
SK 193 
SK 194 
SK 195 
SK 196 
SK 197 
SK 198 
SK 199 
SK 200 
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201 

205 

210 

215 

220 

225 

230 

235 


19 


C 

C 

C 

20 


C 

21 


22 

23 

24 


25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 


37 


CONTINUE 

CALL LINE (XPRT.TPRT.NT.l. 0.0.0. 0) 

CALL NFRANE 

RETURN 

PRINT ERROR NESSAGE 


SK 201 
SK 202 
SK 203 
SK 204 
SK 205 
SK 206 
SK 207 


WRITE ( JWRITE.36) 
WRITE ( JWRITE.37) 
IERR«1 
RETURN 


TITLE.TKNEW 

(I.xm.YCD.I-l.N) 


EORHAT 1 1H1. 3X. 7HTITL£~. 2X.6A10//12X.33H SCALED COORDINATES FOR (T 
l/OMAX ».F7.4//24X,5HUPPER,20X,5HL0WEP//9X,1HI,10X,3HX/C*7X,3HY/C. 
212X.3HX/C.7X.3HY/C) 

FORMAT (5X.I5.5X.2F10.6.5X.2F10.6) 

FORMAT (5X.I5.30X.2F10.6) 

FORMAT ( 1H1. 3X. 7HTITLE-- . 2X.8A10//12X. 49HC AMBER AND THICKNESS OIST 
1R I BUTIONS FOR (T/OHAX “. F7.4//34X. 6HC AMBER. 22X. 9HTH1CKNESS/ /9X. 1H 
2I.10X.3HX/C.12X.3HY/C.11X.5HSL0PE.10X.5HT/C/2) 

FORMAT (5X,I5,2(5X,F10.6),5X.F10.4.5X,F10.6) 

FORMAT { 1H1» 10X.36HTHE FOLLOWING DATA HAVE BEEN PUNCHED//5X.9HTITL 
IE — »6A10.10H(T/C)MAX -.F10.6) 

FORMAT (6A10.10H(T/C)MAX -.F10.6) 

(/5X.4HNU -.14) 


FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


(F10.2) 
(/5X.4HXU 
( /5X.4HYU 
(2F10.6) 

( /5X.4HNL 
(/5X.4HXL 
(/5X.4HYL 


■.8F10.6/(9X.8F10.6>) 
>.8F10.6/(9X.8F10»6) ) 


>.14) 

, »0F1O«6/(9X.8F1O«6)) 

, .8F10»6/(9X»8F10»6) ) 

(1H1.3X.7HTITLE — .2X.8A10//3X.38HATTEMPT TO SCALE AIRFOIL T 
10 (T/C)MAX -.F7.4.2X.55HFAILED DUE TO CROSSOVER OF PERPENDICULARS 
2T0 C AMBER LINE //9X.1HI.9X. 3HX/C. 13X# 3HY/C ) 

FORMAT (5X.I5.5X.F10.6.5X.F10.6) 

END 


SK 209 
SK 210 
SK 211 
SK 212 
SK 213 
SK 214 
SK 215 
SK 216 
SK 217 
SK 218 
SK 219 
SK 220 
SK 221 
SK 222 
SK 223 
SK 224 
SK 225 
SK 226 
SK 227 
SK 228 
SK 229 
SK 230 
SK 231 
SK 232 
SK 233 
SK 234 
SK 235 
SK 236 
SK 237- 
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PAGE 


1 


CARD NO • 


1 


SUBROUTINE CUBSPL CX# Y#YPP#N»A) 

CB 

1 


C 


CB 

2 


C 

THIS SUBROUTINE FITS A CUBIC SPLINE TO A SET OF Y VS X INPUT 

CB 

3 


C 

POINTS 

CB 

4 

5 

C 


CB 

5 


C 

CODED BY — HARRY MORGAN NASA/LARC/TAD/AAB 1982 

CB 

6 


C 


CB 

7 


c 

IN CALLING PROGRAM DIMENSION X, Y# ANO YPP BY N AND A BY 2*N 

CB 

8 


c 


CB 

9 

10 


DIMENSION X<1), Yd)# YPPU)# A(N*2) 

CB 

10 


c 


CB 

11 


c 

COMPUTE SECOND DERIVATIVE AT END POINTS BY FITTING 

CB 

12 


c 

Y-A*X**2+B*X+C TO THE LAST THREE POINTS AND SOLVE FOR A. 

CB 

13 


c 

SECOND DERIVATIVE AT END POINT IS THEN EOUAL TO 2,*A 

CB 

14 

15 

c 


CB 

15 



HI *X ( 2) -X ( 3 ) 

CB 

16 



H2»X (3) — X Cl) 

CB 

17 



H3«X(1)-X(2) 

CB 

18 



YPPd)-2.*(Yd)*Hl+Y(2)*H2+Y(3)*H3)/(Hl*X(l >**2+H2*X(2)**2+H3*X<3) 

CB 

19 

20 


1**2) 

CB 

20 



H1»X(N-1)-X(N> 

CB 

21 



H2"X(N)— X CN— 2 ) 

CB 

22 



H3«X(N-2)-X(N-l) 

CB 

23 



YPP(N)“2»*(Y( N-2 )*H1+YCN-1)*H2+Y (N) *H3 ) / ( Hl*X(N-2 )**2+H2*X < N— 1 ) **2 

CB 

24 

25 


1+H3*X(N )**2) 

CB 

25 


c 


CB 

26 


c 

PERFORM FORWARD ELIMINATION 

CB 

27 


c 


CB 

28 



AU»1)»0.0 

CB 

29 

30 


AU»2)-YPP(1) 

CB 

30 



Nl-N-1 

CB 

31 



DO 1 I«2»N1 

CB 

32 



H1-X(I)-X{I-1) 

CB 

33 



H2«X ( 1+1 )— X( I ) 

CB 

34 

35 


H3»(Y(I + 1)-Yd) )/H2-(Y(I)-Yd-l) )/Hl 

CB 

35 



D-H1*(2.-A(I-1»1> )+2.*H2 

CB 

36 



A(I,1)-H2/D 

CB 

37 


1 

A{ I» 2) * ( 6.*H3-H1*A( I-l» 2) ) /D 

CB 

38 


c 


CB 

39 

40 

c 

PERFORM BACK SUBSTITUTION 

CB 

40 
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41 

45 


50 


C 

J"N 

DO 2 I»2,N1 
J-J-l 

2 YPP< J)-A( J»2)-A(J,1)*YPP<J+1) 

C 

C RETURN TO CALLING PROGRAM 

C 

RETURN 

END 


CB 41 
CB 42 
CB 43 
CB 44 
CB 45 
CB 46 
CB 47 
CB 48 
CB 49 
CB 50- 
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APPENDIX C 


DESCRIPTION OF INPUT FOR AIRFOIL SMOOTHING PROGRAM AFSMO 
This appendix contains a description of the input requirements 
for the airfoil smoothing program AFSMO. All variables are input 
with a card format of 8F10.0, except the title card which has a 
format of 8A10. 


CARD VARIABLE VALUE 


DESCRIPTION 


1 TITLE 


80-column title 


2 ITER 


Maximum number of smoothing iteratives 


2 I PLOT 


2 IPUNCH 


2 IOP 


0 No plots desired 

1 Plot smoothed and unsmoothed y and 

smoothed y' and y" versus 0 

2 Plot smoothed and unsmoothed y versus x 

3 Plot smoothed curvature versus e 

4 Plot camber and thickness distribution 

versus x ( ICAMTK must equal 1) 

5 Plot combined options 1 and 2 

6 Plot combined options 1 and 3 

7 Plot combined options 1, 2, and 3 

8 Plot combined options 1 and 4 

9 Plot combined options 1, 2, and 4 

10 Plot combined options 1, 2, 3, and 4 

0 No punched output desired 

1 Punch smoothed x, y, and w 

2 Punch smoothed 9, y, and w 

3 Punch smoothed 9, y' , and w (YLTE, 

YNOSE, YUTE also punched) 

4 Punch smoothed 0, y" , and w (YLTE, 
YNOSE, YUTE also punched) 

5 Punch x c , y c , t/c/2, and <(, 

of camber and thickness distribution 
(ICAMTK must equal 1) 

6 Punch interpolated x and y coordinates 
( INTR must equal 1 or 2) 

0 Upper and lower surface x, y, and w 
input 
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CARD 


VARIABLE 


VALUE 


DESCRIPTION 


2 


2 

2 


2 


3 

4 


5 

6 


1 

2 

3 


ICAMTK 0 

1 

IBAD 0 

1 

ITRN 0 

1 

INTR 0 

1 


2 


NU 

XU, YU, WU 0 
1 
2 
3 


NL 

XL, YL, WL 0 
1 
2 
3 


Upper and lower surface 0, y, and w 
input 

Upper and lower surface 6, y' , and w 
input 

Upper and lower surface 9, y" , and w 
input 

Do not compute camber and thickness 
distribution 

Compute camber and thickness distribu- 
tion 

Do not check for bad input coordinates 
Check for bad input coordinates 

Do not translate and rotate input 
coordinates 

Translate and rotate input coordinates 
so that x-axis corresponds to longest 
chordline 

No coordinate interpolation desired 
Interpolate smoothed y coordinates 
for standard set of 57 x coordinates 
defined in subroutine INTP 
Interpolate smoothed y coordinates at 
input x coordinates (must specify NINT, 
XINT, and CNEW quantities) 

Number of input upper surface points 

Upper surface x, y, and w 

Upper surface 0, y, and w 

Upper surface 0, y', and w 

Upper surface 0, y" , and w 

(card 4 must be input NU times and x 

or 0 runs from nose to trailing edge) 

Number of input lower surface points 

Lower surface x, y, and w 

Lower surface 0, y, and w 

Lower surface 0, y' , and w 

Lower surface 0, y", and w 

(card 6 must be input NL times and x or 

0 runs from nose to trailing edge) 
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CARD 

VARIABLE VALUE 

DESCRIPTION 

7 

YLTE, YNOSE , - 
YUTE 

Lower surface trailing edge, nose, and 
upper surface trail ing-edge y 
coordinates (Skip this card if IOP=0 
or 1) 

8 

NINT 

Number of desired interpolation x 

coordinates (Skip this card if INTR = 0 
or 1) 

9 

XINT 

Interpolation x coordinates (must be 
input NINT times with 8 values per 
card, but skip if INTR = 0 or 1) 

10 

CNEW 

Desired chord length of interpolated x 
and y coordinates. (must be greater 
than zero, but skip if INTR = 0 or 1) 


The primary restrictions on the input data are that the input value 
of the variables ITER not exceed 300 and the values of NU, NL and 


NINT not exceed 100. If the user desires to input a weighting value 
of 1.0 for any input point, the WU and WL columns may be left 

blank. The variables WU and WL are checked in subroutine INPUT to 
determine if the weighting value is less than 1.0 and, if so, a 

value of 1.0 is substituted. The coordinates and derivatives for 
the upper and lower surfaces must be input from the nose to the 
^ ra ^-*-^ n 9 edge for each surface and must be in monotonically 
increasing order. 
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APPENDIX D 


DESCRIPTION OF OUTPUT FOR AIRFOIL SMOOTHING PROGRAM AFSMO 

This appendix contains a description of the output for the air- 
foil smoothing program AFSMO. Presented in table II is the sample 
12-page output for the smoothing program utilizing the plot, punch, 
camber and thickness, bad-point search, translation and rotation, 
and interpolation options. 

A summary of the input data is printed on page 1 and all of the 
quantities printed are described in Appendix C. If the IBAD option 
is exercised and bad coordinates are found, the bad points and the 
corresponding replacement values will be printed on page 2. The 
allowable deviation (TOLR) and the surface identifier are printed at 
the top of page 2. If the ITRN option is exercised, pages 3 and 4 
will be printed. Page 3 contains a listing of the input prior to 
translation and rotation and page 4 contains a listing after trans- 
lation and rotation. On each page the upper surface coordinates are 
listed on the left and lower surface listed on the right. The 
coordinates of the leading edge of the longest chord (XNOSE and 
YNOSE) in the input axis-system and the angle (ANGLE) between the 
longest chord and the input x-axis are printed at the bottom of page 
4. A summary of the input nondimensionalized x and y coordinates 
(X/C and Y/C ) , 0-transformation values (THETA), and weighting 
factors (W) are printed on page 5. All data are printed in the 
reordered format from the lower surface trailing-edge point clock- 
wise around the airfoil to the upper surface trailing-edge point. 

If the IOP parameter equals 2, the input first derivative y' (YPS) 
will be printed instead of the y coordinate and, likewise if the IOP 
equals 3, the input second derivative y" (YPPS) will be printed. 

The value of the computed chord (CHORD) is printed at the bottom of 
page 5 . 
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A summary of the results from the iterative smoothing process is 
printed on page 6. The sum-of-squares differences generated during 
the iterative least-squares polynomial smoothing process are printed 
initially. The differences are printed 10 to a line with iteration 
1 to 10 on line 1, 11 to 20 on line 2, 21 to 30 on line 3, and so 
on. Immediately following the printout of the differences, a mes- 
sage is printed that states whether the smoothing process converged 
either within a specified number of iterations or tolerance, or 
began to oscillate during the smoothing process. The next message 
printed is the sum-of-squares difference for the least-squares 
cubic-spline smoothing process and should always be equal to the 
number of coordinates (NP) times the square of the allowable devia- 
tion (DF) . The last line printed on page 6 is the result of the 
iteration procedure in subroutine YNEW to match the upper and lower 
surface slopes at the nose. The magnitude listed for DELTA is the 
incremental value added to all of the smoothed second derivative 
values. 

A summary of the smoothed airfoil properties are printed on 
page 7. The quantities listed under the THETA, X/C, and Y/C head- 
ings are the 0-transformation values and the input ic and y coordi- 

nates, respectively. The quantities listed under the YT/C heading 
are the partially smoothed y coordinates generated during the least- 

squares polynomial smoothing process and under the YSMO/C heading 

the final smoothed values following the solution of the cubic-spline 
matrix. The quantity listed under the DELTA heading are the differ- 
ences between the input and final smoothed y coordinates 
(Y/C - YSMO/C). The quantities listed under the YPS, YPPS , DY/DX, 
D(DY/DX)/DX and CURVATURE headings are y' , y", dy/dx, d 2 y/dx 2 , and 
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k, respectively. The value of the leading-edge radius is printed 
next and is simply the reciprocal of the curvature at the nose. 

The locations of the upper and lower surface inflection points are 
printed at the bottom of page 7. A summary of the check of the 
final smoothed y and y" values is printed on page 8. The check 
values are obtained by making a call to the least-squares polynomial 
smoothing subroutine LSQSMO input with the final smoothed y 
coordinates and a uniform weighting factor of 1.0. 

A summary of the desired punched data is printed on page 9. 

The upper surface quantities are listed first and then the lower 
surface quantities. The values listed adjacent to the DX heading 
are the x coordinates if IPUNCH equals 1 and the 0-values if IPUNCH 
is greater than 1. The values adjacent to the DY heading are y, y, 
y', or y" if IPUNCH equals 1, 2, 3, or 4, respectively. 

A summary of the camber and thickness distribution data is 
printed on page 10. The quantities listed under the XU/C and YU/C 
headings are the smoothed upper surface x and y coordinates input 
during the search for the camberline. The quantities listed under 
the XL/C and YL/C headings are the corresponding lower surface 
points located during the search. The quantities listed under the 
X/C, Y/C, T/C/2, and SLOPE headings are the x c and y c coordi- 
nates of the camberline, the local half thickness-chord ratio t/c/2, 
and the local slope of the camberline <j>, respectively. The quantity 
listed under the ERROR heading are the absolute values of the 
difference between the local slopes of the upper and lower surface 
coordinates with respect to the local camberline-axis system. 

The results of the interpolation process are printed on pages 
11 and 12 for the upper and lower surfaces, respectively. The x and 
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y coordinate values are listed under the XU and YU or XL and YL 
headings and are based on a chord equal to the value of the input 
parameter CNEW. The quantities listed under the DY/DX, D(DY/DX)/DX, 
and CURVATURE headings are dy/dx, d 2 y/dx 2 , and k, respectively. 
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APPENDIX E 


DESCRIPTION OF INPUT FOR AIRFOIL SCALING PROGRAM AFSCL 
This appendix contains a description of the input requirements 
for the airfoil scaling program AFSCL. All variables are input with 
a card format of 8F10.0, except the title card which has a format of 
8A10. 


CARD 

VARIABLE 

VALUE 

DESCRIPTION 

1 

TITLE 

_ 

80-column title 


2 

NT 


Number of input thickness and camber 
points 

2 

IPLOT 

0 

No plots desired 



1 

Plot scaled airfoil and its thickness 
and camber distributions 

2 

IPUNCH 

0 

No punched output desired 



1 

Punch x and y coordinates of scaled 
airfoil 

2 

IOP 

0 

Slopes of camberline <j> (TH array) are 
input on card 3 



1 

Slopes of camberline to be computed by 
scaling program 

3 

XC, YC, TK, 

— 

y c coordinates of camberline (YC), 


TH 


the half thickness distribution t/c/2 




(TK), and slope of camberline <{> (TH) 
versus x c coordinate (XC). (Card 3 
is input NT times) 

4 

LT 

- 

Number of scaled maximum thickness-chord 
ratios 

5 

TKNEW 

- 

Scaled maximum thickness-chord ratios 
(Card 5 is input LT times) 


The input data restrictions are that the variable NT not 
exceed 101, the variable LT not exceed 10, and that the coordinates 


for the camberline and thickness distribution be input in a 
monotonically increasing order from nose to trailing edge. 
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APPENDIX F 


DESCRIPTION OF OUTPUT FOR AIRFOIL SCALING PROGRAM AFSCL 

This appendix contains a description of the output for the air- 
foil scaling program AFSCL. Presented in table III is a sample 
3-page output for the scaling program. A summary of the input data 
is printed on page 1. A description of the input parameters is pre- 
sented in Appendix E. The guantities listed adjacent to the X/C, 
Y/C, and SLOPE headings are the x_ and y_ coordinates and local 
slopes <J) (XC, YC, and TH arrays) of the camberline and adjacent to 
the T/C/2 heading are the half thickness distribution values t/c/2 
(TK array ) . The values listed adjacent to the heading NEW T/C are 
the desired scaled maximum thickness-chord ratios (TKNEW array). 

The value of the maximum thickness-chord ratio for the input airfoil 
and its x coordinate are printed on the last line of page 1. 

Page 2 and 3 are then output for the input airfoil and each 
airfoil for a desired scaled maximum thickness-chord ratio. A 
summary of the upper and lower surface x and y coordinates of the 
scaled airfoil is presented on page 2 and the corresponding camber 
and thickness distributions on page 3. The slopes of the camberline 
in degrees are also printed on page 3. 
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TABLE I 


TRANSFORMATION FUNCTION AND FIRST AND 
SECOND DERIVATIVES 


0 , deg 
(+/-) 

x/c 

d (x/c) /d9 

d 2 (x/c) /d0 2 

0 

0.00000 

0.00000 

.46278 

1 

.00007 

.00808 

.46270 

2 

.00028 

.01615 

.46249 

3 

.00063 

.02422 

.46214 

4 

.00113 

.03228 

.46165 

5 

.00176 

.04033 

.46101 

6 

.00254 

.04837 

.46024 

7 

.00345 

.05640 

.45933 

8 

.00450 

.06441 

.45827 

9 

.00570 

.07239 

.45708 

10 

.00703 | 

.08036 

.45574 

11 

.00850 

.08830 

.45427 

12 

.01011 

.09622 

.45266 

13 

• Oil 86 

.10410 

.45091 

1* 

.01375 

.11196 

.44903 

15 

.01577 

.11978 

.44701 

16 

.01793 

.12756 

.44495 

17 

.02022 

.13530 

.44255 

18 

.02265 

.14301 

.44013 

19 

.02521 

.15066 

.43756 

20 

.02791 

.15828 

.43487 

21 

,03074 

.16564 

.43204 

22 

.03370 

.17336 

,42908 

23 

.03670 

.18082 

. 42599 

24 

.04001 

.18823 

.42277 

25 

.04336 

.19558 

.41942 

26 

.04684 

.20287 

.41594 

27 

.05044 

. 21010 

.41234 

28 

.05417 

.21726 

.40861 

29 

.05802 

.22436 

.40475 

30 

.06200 

.23139 

.40078 

31 

.06610 

.23835 

.39668 

32 

.07032 

.24523 

.39246 

33 

.07466 

.25205 

.38812 

34 

.07912 

.25878 

. 38366 

35 

.08369 

.26544 

.37908 

36 

.08838 

.27201 

.37439 

37 

.09319 

.27851 

.36959 

38 

.09810 

.28491 

.36467 

39 

.10313 

.29123 

.35964 

40 

.10827 

.2 9747 

.35451 

41 

.11351 

.30361 

.34926 

42 

.11887 

.30966 

.34391 

43 

.12432 

.31561 

.33845 

44 

.12988 

.32147 

.33289 

45 

.13554 

.32723 

.32723 
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TABLE I. 


CONTINUED 


0 , deg 
(+/-) 


x/c 


46 

.14130 

.33289 

47 

.14716 

.33845 

48 

.15312 

.34391 

49 

.15917 

.34926 

50 

.16531 

.35451 

51 

.17154 

.35964 

52 

.17786 

.36467 

53 

.18427 

.36959 

54 

.19076 

.37439 

55 

.19734 

.37908 

56 

.20399 

.38366 

57 

.21073 

.38812 

58 

.21754 

.39246 

59 

.22443 

.39668 

60 

.23139 

.40078 

61 

.23842 

.40475 

62 

. 24552 

.40861 

63 

.25268 

.41234 

64 

.25991 

.41594 

65 

.26720 

.41942 

66 

• 27455 

.42277 

67 

.28195 

.42599 

68 

. 28942 

.42908 

69 

.29693 

.43204 

70 

.30450 

.43487 

71 

.31211 

.43756 

72 

.31977 

.44013 

73 

.32747 

. 44255 

74 

.33522 

.44485 

75 

.34300 

.44701 

76 

.35082 

.44903 

77 

.35867 

.45091 

78 

.36656 

.45266 

79 

.37447 

.45427 

80 

.38242 

.45574 

81 

.39038 

.45708 

82 

.39837 

.45827 

83 

•40638 

.45933 

84 

.41440 

.46024 

85 

.42244 

.46101 

86 

•43049 

.46165 

87 

.43856 

.46214 

88 

.44662 

.46249 

89 

.45470 

.46270 

90 

.46278 

.46278 


d (x/c) /d0 


d 2 (x/c) /d0 2 


.32147 
.31561 
•30966 
•30361 
.29747 
.29123 
.28491 
.27851 
.27201 
.26544 
.25878 
.25205 
.24523 
.23835 
.23139 
.22436 
.21726 
.21010 
.20287 
.19558 
• 18823 
.18082 
.17336 
.16584 
.15828 
.15066 
.14301 
.13530 
.12756 
.11978 
.11196 
.10410 
.00622 
.08830 
.08036 
.07239 
.06441 
•05640 
.04837 
.04033 
.03228 
.02422 
.01615 
.00808 
.00000 


163 

















TABLE I 


CONCLUDED 


0 , deg 
(+/-) 

x/c 

d (x/c) /d0 

d 2 (x/ c) / d0 2 

136 

•79983 

.34536 

-.22988 

137 

.80502 

.34134 

-.23049 

13 8 

•81175 

.33732 

-.2 3093 

139 

.01760 

.33328 

-.23123 

140 

•82338 

.32925 

-.23137 

141 

.82909 

.32521 

-.23137 

142 

•83473 

.32117 

-.23123 

143 

•84030 

.31714 

-.23096 

144 

1 ,84580 

.31311 

-.23056 

145 

• 85123 

.30909 

-.23004 

146 

.85659 

.30508 

-.22940 

147 

.86188 

.30108 

-.22865 

148 

.86710 

.29710 

-.22779 

149 

.87225 

• 29313 

-.22683 

150 

.87733 

.28918 

-.22577 

151 

.88235 

.28525 

-.22462 

152 

.88729 

.28134 

-.22338 

153 

.89217 

.27746 

-.22206 

154 

.89698 

.27359 

-.22066 

155 

.90172 

.26975 

-.21919 

156 

.90639 

.26594 

-.21764 

157 

.91100 

.26216 

-.21604 

158 

.91554 

.25840 

-.21437 

159 

.92002 

.25467 

-.21264 

160 

.92443 

.25098 

-.21086 

161 

.92878 

.24731 

-.20904 

162 

.93307 

.24368 

-.20716 

163 

.93729 

.24008 

-.20525 ! 

164 

.94145 

.23652 

-.20329 

165 

,94554 

.23299 

-.20131 

166 

.94958 

.22949 

-.19920 

167 

.95356 

.22603 

-.19724 

168 

•95747 

.22261 

-.19516 

169 

.96133 

.21922 

-.19306 

170 

.96512 

.21587 

-.19094 

171 

• 96 886 

, 21255 

-.10801 

172 

.97254 

.20928 

-.18666 

173 

.97617 

.20604 

-.18449 

174 

.97973 

. 20284 

-.1 0231 

175 

.98325 

.19967 

-.18013 

176 

.98670 

.19655 

-.17794 

177 

.99011 

.19346 

-.17575 

178 

.99346 

.19041 

-.17355 

179 

.99676 

.18740 

-.17135 

180 

1.00000 

. 18443 

-.16915 
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TABLE II.- SAMPLE OUTPUT FOR AIRFOIL SMOOTHING PROGRAM 


PAGE 1 OUTPUT 






— INPUT DATA 

— 




TITLE 

— // G A ( W ) 

-1 AIRFOIL WITH 

BAD COORDINATE 

POINTS 


// 



ITER 

= 100 I PLOT = 

10 I PUNCH = 

1 IOP = 0 

ICAMTK » 1 

IPAD = 1 I TRN 

= I INTR = 

2 


Nil = 

40 








XI 1 = 

0. 

. lOOOOOE+OO 
.400000F+00 
• 675 0 0 OF ♦ 0 0 
.875000F+00 

• 20 0 00 0E-02 

• 1 25000E*00 
.450000E+00 
.700000E+00 
•90000 0F*00 

.500000E-02 
• 150000E*00 

• 50 0 0O0E*O0 

• 72500 OE* 00 
.R25000E*00 

• 1 25000E-0 1 
• 175000E+00 
•550000E+00 
.750000E+00 
•950000E+00 

.250000F-01 

,2OQOQOE*0O 

♦575000E+00 

.775000E+00 

•9750Q0E+Q0 

• 37500 OE-O 1 
.250000E*00 
•600000E+00 

# 8000 0 OE* 00 
.990000E+00 

•500000E-01 
.300000E+00 
.625000E+00 
.82500 OE* 00 
. 9950 00E + 00 

.750000E-01 

.350000E+00 

.650000E+00 

,850000E*00 

,100000E*01 

YIJ = 

0. 

.730000F-01 
. 104910F+00 
.81 3600E-0 1 
.331500F-01 

• 1 30 00 OE-O 1 

• 7900 0 OE-O 1 
. 1 04450F*00 
.763400E-01 
.263900E-01 

• ?040 OOE-O 1 
,84 0000 E-01 
. 102580F+00 

• 7 0 920 0 E-0 1 
•196100E-01 

•307000F-01 
.884000E+00 
•991 OOOE-Ol 
•651300E-01 
.128700E-01 

.617000F-01 
.9200 OOE-O 1 
• 966800E-0 1 
.590700E-01 
.609000E-02 

.496500E-01 
.977000E-01 
.937100E-01 
•528600E-0 1 
•20 000 0E-02 

. 558900E-0 1 
,101600E*00 
. 90 0 60 OE-O 1 
•464600E-01 
.700000E-03 

• 655 1 OOE-O 1 
.104000E*00 

• 85990 OE-O 1 
. 398800E-0 1 

-. 70000 0E-03 

wu= 

. 100000F+01 
. 1 00000001 
. 100000F+01 
. 100000F+01 
. ioooooe>oi 

. 100000E*01 
•10000 OE *01 
. 1 OOOOOE+Ol 
. 1 00000F+01 
. 1000COE*01 

. 100000E + 01 

* 1 000 00E* 0 1 
. 10000QE*01 

• 10000 OF + 01 
. 100000E*01 

. 100000E + 01 
• 1 00 OOOE* 0 1 
. 100000F + 01 
•10000 OE *01 
. 100000E + 01 

.100000E+01 
• 100000E+01 
•100000F+01 
• 10000 OF *01 
. 100000E+D1 

•10000 OE *01 
. 100000E*01 
• 1 0000 OE* 0 1 
•10000 0E+01 
. 100000E+01 

. 100000E+01 
• 100000E*01 
•100000E+01 
.100000E*01 
. 100000E*01 

• 100000E*01 
.100000E+01 
.lOOOOOE+Ol 
•100000E+01 
. 100000E*01 

NL = 

40 








XL = 

0 # 

. 100000F*00 
,400000F*00 
,675000F*00 
• 8750 0 0 F ♦ 0 0 

• 20 00 0 0E-02 
. 125000E+00 
.450000E+00 

• 700 0 00E*00 

• 90 000 OE* 0 0 

• 5 0 00 0 OE-O? 
• 150000E*00 
•500000E*00 
• 725000E*00 
.925000E+00 

•125000E-01 
. 175000E + 00 
•550000E+00 
• 75000 OE* 0 0 
•950000E+00 

, 250000E-0 1 
•200000E+00 
•575000E+00 
• 77500UE+Q0 
•975000E+00 

. 37500 OE-O 1 
.2500005*00 
•600000E+00 
.80000 OE *00 
• Q90000E* 0 0 

,50000 OE-O 1 
•300000E*00 
,6250 OOE*00 
, 8?5000E*Q0 
.99500 OE* 00 

•750000F-01 
• 350 0 0 OE ♦ 0 0 
•650000E+00 
•850000E+00 
.100000E*01 

YL = 

0. 

-.470000F-01 
- * 649 0 0 0 F- 0 1 
-.3B4000E-01 
- .580 0 00F-02 

-.930000E-0? 
-.510000F-01 
-.635000F-01 
- • 340 00 OE-O 1 
- * 3 60 0 0 OE-O? 

138000E-01 
- • 5430 OOE-O 1 
-.610000E-01 
-•294000E-0 1 
-.250000E-02 

-.20500 OE-O 1 
-•570000 E-01 
-•570000E-01 
- . 249000E-0 1 
-• 260 00 0E-02 

-.269000E-01 
- .59300 OF-0 1 
-.540000F-01 
-.204000E-01 
- • 40000 OE-02 

-.3 1 9000E-0 1 
-.627000E-01 
-.508000F-01 
-.16000 OE-O 1 
-.57000 0E-02 

-. 358000E-0 1 
—.645000 E-01 
— .4690 OOE-O 1 
-.120000E-01 
-.670000E-02 

-.421 OOOF-O 1 
-.65200 OE-O 1 
-. 42000 OE-O 1 
-.860000E-02 
-.80000 0E-02 

WL = 

, 1 00000E*01 
. loonooF+oi 

.100000F+01 
.1 00000E*01 

. ionooor*oi 

• 1 OOOOOE+Ol 
. 1 00C0QE*01 
. 100000E*01 
.1 00000E*01 
. 100G00E*01 

♦100 00 OE *01 
•10000GE*01 
. 1 OOOOOE + Ol 
. 1 00000E + 01 
. 1 00000E + 01 

•10000QE+01 
♦ 1 00 0 0GE*Q 1 
. 100000F + 01 
. lOQOOOE + Ol 
.1000006*01 

.100000E+01 
. 100000E+01 
. 100000F+01 
• 1 00000E + Q 1 
. 100000F+01 

• 1 000 00E* 0 1 

• 1 00000E+01 
. 100000E+01 
•100000F*01 
•10000 0E*01 

, 100000E + 01 
•100000E+01 
. 100000E*01 
•100000 E *01 
•100000E*01 

. 100000E + 01 
. 1 OOOOOE+Ol 
. 100000F*01 
.100000E+01 
, 10000 0E*01 

MINT a 

17 








X INT = 

0 . 

,200000F*00 
. 100000F+01 

• 1 OOnoOE-02 
.300000F+00 

.200000F-02 

.400000E*00 

.50 QOOOE-02 
.500000E+00 

. lOOOOOE-Ol 
.600000E+0D 

.500000E-01 

#700000E*00 

,eoooooE-oi 

, 80000 0E*00 

•100000E*00 

,900000E*00 


CHEW = 10.000 


PAGE 2 OUTPUT 


WARNING — 

• RAD 

POINTS 

have fefn 

FOUND ON 

THF 

UPPER SURFACE 

RASED ON AN 

EDIT 

tolerance of 

BAD POINT 

AT 

1 = 

12 

X = 

.175000 

Y 

= .684000 

replaced 

WITH 

Y = 

.088310 

had POINT 

at 

1 = 

5 

X = 

.025000 

Y 

= .061700 

REPLACED 

WITH 

Y = 

.041720 
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TABLE II.- CONTINUED 


PAGE 3 OUTPUT 




— INPUT COORDINATES — 


title— 

// 

GA (W)-l 

AIPEOIL WITH BAD COORDINATE 

POINTS 

I 


XU 

YU 

XL 

YL 

1 


0.000000 

0.000000 

0.000000 

0.000000 

2 


.002000 

.013000 

.002000 

-.009300 

3 


.005000 

.020400 

.005000 

-.013800 

4 


.012500 

.030700 

.012500 

-.020500 

5 


.025000 

.041720 

.025000 

-.026900 

6 


.037500 

.049650 

.037500 

-.031900 

7 


.050000 

.055890 

.050000 

-.035800 

B 


.075000 

.065510 

.075000 

-.042100 

9 


.100000 

.073000 

.100000 

-.047000 

10 


.125000 

.079000 

.125000 

-.051000 

n 


.150000 

.084000 

.150000 

-.054300 

l? 


.175000 

.088310 

.175000 

-.057000 

13 


.200000 

.092000 

.200000 

-.059300 

14 


.250000 

.097700 

.250000 

-.062700 

15 


.300000 

.101600 

.300000 

-.064500 

1ft 


.350000 

.104000 

.350000 

-.065200 

17 


.400000 

.104910 

.400000 

-.064900 

18 


.450000 

.104450 

.450000 

-.063500 

19 


.500000 

.102580 

.500000 

-.061000 

20 


.550000 

.099100 

.550000 

-.057000 

21 


.575000 

.096680 

.575000 

-.054000 

22 


.600000 

.093710 

,600000 

-.050800 

23 


.625000 

.090060 

.625000 

-.046900 

24 


.650000 

.085990 

.650000 

-.042800 

25 


.675000 

.081360 

.675000 

-.038400 

26 


.700000 

.076340 

.700000 

-.034000 

27 


.725000 

.070920 

.725000 

-.029400 

28 


.750000 

.065130 

.750000 

-.024900 

29 


.775000 

.059070 

.775000 

-.020400 

30 


.800000 

.052860 

.800000 

-.016000 

31 


.825000 

.046460 

.825000 

-.012000 

32 


.850000 

.039880 

,050000 

-.008600 

33 


.875000 

.033150 

.875000 

-.005800 

34 


.900000 

.026390 

.900000 

-.003600 

35 


.925000 

.019610 

.925000 

-.002500 

3ft 


.950000 

.012870 

.950000 

-.002600 

37 


. .975000 

.006090 

.975000 

-.004000 

3 R 


.990000 

.002000 

.990000 

-.005700 

39 


.995000 

.000700 

.995000 

-.006700 

40 


1.000000 

-.000700 

1.000000 

-.008000 

PAGE 4 OUTPUT 



—translated AND POTATED 

COORDINATES— I 

TITLE"- 

// 

GA(W)-1 

AIRFOIL WITH BAD COORDINATE 

POINTS 

I 


XU 

YU 

XL 

YL 

1 


0.000000 

0.000000 

0,000000 

0.000000 

2 


.001943 

.013009 

.002040 

-.009291 

3 


.004911 

.020422 

.005060 

-.013778 

4 


.012366 

.030754 

.012589 

-.020445 

5 


.024818 

.041828 

.025117 

-.026791 

6 


.037284 

.049813 

.037638 

-.031737 

7 


.049756 

.056107 

.050155 

-.035582 

8 


.074714 

.065836 

.075182 

-.041773 

9 


.0996R2 

.073434 

.100204 

-.046565 

1 0 


.124655 

.079543 

.125221 

-.050456 

11 


.149633 

.08465? 

.150235 

-.053647 

12 


.174614 

.089070 

.175246 

-.056238 

13 


.199590 

.092869 

.200256 

-.058429 

14 


.249573 

.098787 

.250270 

-.061612 

15 


.299555 

.102904 

.300278 

-.063194 

16 


.349544 

.105522 

.350280 

-.063677 

17 


.399540 

.106649 

.400279 

-.063159 

18 


.449541 

.106406 

.450272 

-.061542 

19 


.499549 

.104754 

.500261 

-.058824 

20 


.549564 

.101492 

.550243 

-.054607 

21 


.574574 

.099180 

.575229 

-.051498 

22 


.599587 

.096319 

.600215 

— .048100 

23 


.624602 

.092778 

.625198 

-.044181 

24 


.649620 

.088817 

.650180 

-.039972 

25 


.674640 

.084295 

.675161 

-.035463 

26 


.699661 

.079384 

.700141 

-.030955 

27 


.7246R5 

.074073 

.725121 

-.026246 

28 


.749710 

.068392 

.750101 

-.021637 

29 


.774736 

.062441 

.775081 

-.017029 

30 


.799762 

.056339 

.000062 

-.012520 

31 


.024790 

• 050 04R 

.825044 

-.008411 

32 


.849818 

.043577 

.850029 

-.004902 

33 


.874840 

.036956 

.875017 

-.001994 

34 


.899877 

.030305 

.900007 

.000315 

35 


.924906 

.023634 

.925002 

.001524 

36 


.949935 

.017002 

.950002 

.001532 j 

37 


.974964 

.010331 

.975008 

.000241 

38 


.909982 

.006306 

.990015 

-.001393 

39 


.994988 

.005028 

.995020 

-.002372 

40 


,999994 

.003650 

1.000025 

-.003650 

XNOSE = 


0.000000 

YNOSE = 0 

.000000 

ANGLE = -.249 
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TABLE II.- CONTINUED 


PAGE 5 OUTPUT 




— SUMMARY OF 

INPUT DATA — 




TITLF-- 

// GA{W)-1 

AIRFOIL WITH BAD COORDINATE: POINTS 



// 

I 

X/C 

Y/C 

THETA 

YPS 

YPPS 

W 

1 

1.000000 

-.003650 

-180,00 



1.00 

2 

.994995 

-.002372 

-178.46 



1.00 

3 

.989990 

-.001393 

-176.97 



1.00 i 

4 

.974983 

.000241 

-172,67 



1.00 1 

5 

.949978 

.001532 

-166,10 



1.00 

6 

.924979 

.001524 

-160.12 



1.00 j 

7 

, R999R4 

.000315 

-154,63 



1.00 1 

8 

.874995 

-.001994 

-149.54 



1.00 

9 

.850008 

-.004902 

-144.77 



1.00 

10 

.825023 

-.008411 

-140.29 



1.00 ! 

11 

.800042 

-.012520 

-136.03 



1.00 

12 

.775062 

-.017028 

-131.98 



1.00 

13 

.750082 

-.021637 

-128.10 



1.00 

14 

.725103 

-.026245 

-124.37 



1.00 1 

15 

.700124 

-.030954 

-120.77 



1.00 

1 6 

.675144 

-.035463 

-117,27 



1.00 ! 

17 

.650164 

-.039971 

-113.86 



1.00 i 

18 

.625182 

-,044180 

-110.53 



1.00 

19 

.600200 

-.048188 

-107.27 



l.oo ! 

20 

.575215 

-.051497 

-104,06 



1.00 

21 

.550229 

-.054606 

-100.89 



1.00 1 

22 

.500248 

-.058823 

-94,64 



1.00 

23 ' 

.450261 

-.061540 

-88.45 



1.00 

24 

.400268 

-.063158 

-82.24 



1.00 1 

25 

.350271 

-.063675 

-75.93 



1.00 

26 

.300270 

-.063193 

-69.44 



1.00 

*7 

.250264 

-.061610 

-62,66 



1.00 1 

?R 

.200251 

-.058428 

-55,44 



1.00 i 

29 

.17524? 

-.056237 

-51.59 



1.00 

3 0 

.150231 

-.053646 

-47,52 



1.00 

31 

.125217 

-.050454 

-43.16 



1.00 S 

3? 

, 100201 

-.046563 

-38.42 



1.00 

33 

.075181 

-.041772 

-33.12 



1.00 

34 

.050164 

-.035581 

-26.92 



1.00 

35 

,037637 

-.031736 

-23.27 



1.00 

36 

.025116 

-.026790 

-18.96 



1.00 

37 

.012589 

-.020445 

-13,39 



1.00 

38 

.005060 

-.013778 

-8.48 



1.00 

39 

.002040 

-.009291 

-5.38 



1.00 

40 

0.000000 

0.000000 

0.00 



1.00 j 

41 

.001943 

.013008 

5.25 



1.00 i 

42 

.00491 1 

.020421 

8.35 



1.00 

43 

.012366 

.030753 

13.28 



1.00 

44 

.024010 

.041827 

18,85 



1.00 

4 5 

.037283 

.049811 

23.16 



1.00 ! 

46 

.04975^ 

.056106 

26.81 



1.00 

47 

.07471? 

,065834 

33.01 



1.00 

46 

.099679 

. 073432 

3fl .32 



1.00 

49 

.12465? 

.079541 

43,06 



1.00 

50 

.149629 

.084650 

47,42 



1.00 

51 

.174610 

.089060 

51,49 



1.00 

82 

. 199593 

.092867 

55.34 



1.00 

53 

.249566 

.098784 

62.57 



1.00 

54 

.299548 

.102901 

69.35 



1.00 

55 

.349535 

.105519 

75.84 



1.00 

56 

.399530 

.106646 

82.15 



1.00 

57 

.449530 

.106404 

66.36 



1.00 

58 

.499536 

.104751 

94.56 



1.00 

59 

.549550 

. 101489 

100.81 



1.00 

80 

.574559 

.099178 

103.98 



1.00 

81 

.599571 

.096317 

107.19 



1.00 

6? 

.624587 

.092776 

110.45 



1.00 

83 

.649603 

.088814 

113.79 



1.00 

64 

.674623 

.004293 

117.20 



1.00 

65 

.699644 

.079382 

120.70 



1.00 

66 

.724666 

.074071 

124,31 



1.00 

87 

.749691 

.068390 

128.04 



1.00 

68 

.774716 

.062439 

131.93 



1.00 

89 

.79974? 

.056338 

135.99 



1.00 

70 

.824769 

,050047 

140.24 



1.00 

71 

.849797 

.043576 

144.73 



1.00 

72 

.874825 

.036955 

149,50 



1.00 

73 

.899854 

,030304 

154.61 



1.00 

74 

.924883 

.023633 

160.10 



1.00 

75 

.949911 

.017002 

166.00 



1.00 

76 

.974940 

.010331 

172.66 



1.00 

77 

.989957 

.006306 

176.96 



1.00 

78 

.994962 

.005028 

178.45 



1.00 

79 

.999968 

.003650 

179.99 



1.00 

CHO°D = 

1.000025 
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TABLE II. - CONTINUED 


PAGE 6 OUTPUT 

TITLE— // Gfl(W)-l AIRFOIL WITH BAD COORDINATE POINTS // 


— SUM OF SQUARES GENERATED DURING SMOOTHING PROCESS — 


1 

1.2812335 

.0077146 

.0008193 

.0005538 

.0003981 

.0002971 

.0002271 

.0001771 

•0001406 

.0001133 

2 

.0000927 

.0000766 

.0000641 

.0000542 

.0000462 

.0000397 

.0000344 

.0000300 

.0000264 

.0000234 

3 

.0000207 

.0000166 

.0000167 

.0000151 

.0000137 

.0000125 

.0000114 

.0000105 

•0000097 

.0000089 

4 

.0000083 

.0000077 

.0000072 

.0000067 

.0000063 

.0000059 

.0000056 

.0000053 

.0000050 

.0000047 

5 

.0000045 

.0000042 

.0000040 

.0000030 

.0000037 

.0000035 

.0000033 

.0000032 

•0000031 

.0000029 

6 

.0000028 

.0000027 

.0000026 

.0000028 

.0000024 

.0000023 

.0000022 

.0000021 

.0000021 

.0000020 

7 

.0000019 

.0000019 

.0000018 

.0000010 

.0000017 

.0000016 

.0000016 

.0000015 

.0000015 

.0000015 

8 

.0000014 

.0000014 

.0000013 

.0000013 

.0000013 

.0000012 

.0000012 

.0000012 

•0000011 

.0000011 

9 

.0000011 

.0000010 

.0000010 

.0000010 







SMOOTHING PROCESS 

CONVERGED 

AFTER 84 ITERATIONS 








SUM OF SQUARES FROM LEAST SQUARES CUBIC SPLINE SMOOTHING = .7900E-06 

ITERATION PROCEDURE TO COMPUTE INCREMENTAL ADJUSTMENT TO SECOND DERIVATIVE CONVERGED IN 2 ITERATIONS AND DELTA = .1554E-03 




TABLE II . - CONTINUED 








rA jj 7 

OUTPUT 





TITLE- 

- // 

GA (V) -1 

airfoil with 

bad coordinate POINTS 



// 








—SMOOTHING OUTPUT 

summary — 





I 

THETA 

x/c 

Y/C 

YT/C 

YSMO/C 

DELTA 

YPS 

YPPS 

DY/DX 

0 (DY/OX ) /DX 

CURVATURE 

l 

-180.00 

1.000000 

-.003650 

-.003634 

-.003634 

-.000016 

.046662 

-.251722 

- .253004F *00 

-.865835E+01 

,788P89E*0 1 

2 

-170.46 

.994995 

-.002372 

-.002482 

-.002471 

.000100 

.040183 

-.231661 

-,212594F>00 

-.751 1 07E*0 1 

.702919E*01 

3 

-176.97 

,989990 

-.001393 

-.001518 

-.001497 

• 000104 

.034363 

-.213279 

-. 1775?3F*00 

-,652514E*01 

.622841E401 

4 

-172.67 

.974983 

.000241 

•000472 

•000520 

-.000279 

.020044 

-.168921 

-.967836E-01 

-.435650E+01 

.429599E*0i 

5 

-166.10 

.949978 

.001532 

.001736 

•001805 

-•000273 

.003201 

-.124731 

-• 139704E-0 1 

-.242847E+01 

.242776E*0i 

6 

-160.12 

.924979 

.001524 

.001420 

.001491 

•000033 

-.008931 

-.107946 

•356487E-01 

- • 160033E*0 1 

• 159728E*0 1 

7 

-154.63 

.899984 

.000315 

•000093 

.000136 

.000179 

-.019363 

-•109732 

.714075F-01 

-• 127B99F *01 

• 1 26927E* 0 1 

0 

-149.54 

.874996 

-.001994 

-•002056 

-.002034 

.000040 

-.029613 

-.120810 

. 1 0 1760E* 00 

-.115470E*01 

• 1 13699E*0 1 

9 

-144.77 

.850008 

-.004902 

-.004937 

-•004924 

.000022 

-.040022 

-.129549 

• 129104E+00 

-.103885E*01 

•101341E*01 

10 

-140.29 

.825023 

-.008411 

-•008471 

-.008452 

.000041 

-.050039 

-.126252 

• 152515F+00 

-,845039E*00 

,816389E*00 

11 

-136.03 

,800042 

-.012520 

-•012534 

-.012496 

-.000023 

-.058748 

-.108496 

• 1 70 175F>00 

- .582089E* 00 

.557689E400 

12 

-131.98 

.775062 

-.017020 

-•016960 

-.016899 

-.000129 

-.065483 

-.082023 

• 181220F + 00 

-• 314067E+OO 

.299970E*00 

13 

-120.10 

• 7500R2 

-.021637 

-.021502 

-.021501 

-.000136 

-.070152 

-.055875 

• 1 86367E + 00 

106339E*00 

.101030E+00 

14 

-124.37 

.725103 

-.026245 

-•026270 

-.026175 

-.000070 

-.073120 

-.035247 

. 1 87297F* 00 

.263583E-01 

• 250297E-0 A 

15 

-120.77 

.700124 

-.030954 

-.030943 

-.030835 

-.000119 

-.074771 

-.017226 

,185429E*00 

• 1 19704E + 00 

.113785E*00 

16 

-117.27 

.675144 

-.035463 

-•035542 

-•035417 

-.000045 

-.075079 

.007125 

• 10O959E + OO 

.234592E*00 

•223523E*00 

17 

-113.06 

.650164 

-.039971 

-.039996 

-.039045 

-.000126 

-.073515 

.045501 

.172834F*00 

•41 1565E+00 

.3V3790E+00 

16 

-110.53 

• 6251 P? 

-.044180 

-.044195 

-.044012 

-.000167 

-.069500 

.092741 

• 1 59929E* 0 0 

• 61 7598E *00 

.594639E+00 

19 

-107.27 

.600200 

-.040108 

-.040010 

-.047001 

-.000387 

-.063212 

.128078 

. 142845F *00 

•7405O2E*OO 

.726164E+00 

20 

-104.06 

.575215 

-.051497 

-.051353 

-.051136 

-.000361 

-.055751 

.130268 

• 1241 15E + O0 

.751767E400 

.734725E*0U 

21 

-100.89 

.550229 

-.054606 

-•054222 

-.054008 

-.000598 

-.048130 

.137405 

■ 1 05009F *0 0 

,708829E*00 

.697072E*00 

22 

-94.64 

.500248 

-.050823 

-.058651 

-.058462 

-.000361 

-.033768 

.126015 

• 7320 75E-0 1 

.605127E*00 

,600295E*00 

2? 

-80.45 

.450261 

-.061540 

-.061557 

-,061407 

-.000133 

-.021018 

.109849 

.454342E-01 

•510646E+00 

• 509069E*0 0 

24 

-02.24 

.400268 

-.063158 

-.063179 

-•063060 

-.000089 

-.009874 

.095697 

•215331F-01 

,448747E*00 

• 448435E * 00 

25 

-75.93 

.350271 

-.063675 

-.063676 

-.063596 

-.000080 

.000110 

.085695 

- .24603 1 E-0 3 

.425414E+00 

. 4254 1 4E* U U 

26 

-69.44 

.300270 

-.063193 

-.063102 

-.063045 

-.000147 

.009507 

.080277 

— 219416E-01 

•446560E+00 

. 446238E* 00 

27 

-62.66 

.250264 

-.061610 

-.061402 

-.061364 

-.000246 

.010876 

.078109 

-.459168E-01 

.519921E*00 

•5 1828 1E*0U 

2fi 

-55.44 

.200251 

-.056.428 

-.058381 

- • 058366 

-.000062 

.026654 

.076969 

-• 751952F -01 

•665834E+00 

,66 0228E * 0 0 

29 

-51.69 

.17524? 

-.056237 

-•056267 

-•056267 

.000030 

.033772 

.075308 

-.931369E-01 

,776423E*00 

• 7664?9£*0U 

30 

-47,52 

.150231 

-.053646 

-.053662 

-.053681 

.000036 

.038969 

.071015 

-• 1 14183E + 00 

.916001 E^OO 

. 890453E + 0 0 

31 

-43.16 

.125217 

-.050454 

-.050480 

-.050519 

.000065 

.044162 

.065608 

-• 1 3950 1 E*0 0 

• 1 1 2455E *01 

• 1 09251 E*Ol 

3? 

-38.42 

.100201 

-.046563 

-.046587 

-.046646 

.000003 

.049352 

.059800 

-.171611E*00 

• 147545E*01 

• 141 260E ♦ 0 1 

33 

-33.1? 

.07510] 

-.041772 

-.041755 

-.041836 

.000063 

.054498 

.051449 

-.215540E*00 

• 21 1 150E *01 

• 1 9 7246E ♦ 0 1 

34 

-26.9? 

.050164 

-.035581 

-.035558 

-•035667 

.000066 

.059347 

.038221 

- • 283233F ♦00 

.353240E*01 

• 314630E + 0 1 

35 

-23.27 

.037b37 

-.031736 

-.031603 

-,031809 

.000073 

.061555 

.031007 

— • 3367 1 8F *00 

.521141E+01 

.443599E* 0 1 

3ft 

-18.96 

.025116 

-.026790 

-.026958 

-.027087 

.000296 

.064298 

.042033 

-• 427560F *00 

•101328E*02 

.7«7697E*0l 

37 

-13.39 

.012509 

-.020445 

-.020457 

-.020541 

.000096 

.071415 

.104413 

-.666140E*OO 

.351781E*02 

• 202784E* 0^ 

36 

-0.48 

.005060 

-.013778 

-.013915 

-.013927 

.000149 

.084022 

.189553 

-• 1231 15E+Q1 

. 161688E + 03 

• 40521 0E*0^ 

39 

-5.38 

.002040 

-.009291 

-.009112 

-.009085 

-.000206 

.095459 

.233401 

-.219907E+01 

,661604E*03 

,469282E*04 

40 

0.00 

0.000000 

0,000000 

.000078 

.000878 

-.000070 

.116289 

.210007 

• 100000E *99 

•100000E*99 

,342?09E*0* 

41 

5.25 

.001943 

.013008 

.012368 

.012230 

.000778 

.129279 

.073366 

• 3 05 1 43E + 0 1 

-.742557E+03 

• 224266E+0E 

42 

0.35 

.004911 

.020421 

.019521 

.019288 

.001133 

.130542 

-.026692 

. 1 94 1 4 1 E + 0 1 

-.202505E+03 

. 1 94440E* 0? 

43 

1 3.?« 

.012366 

.030753 

.030599 

.030278 

.000475 

.123997 

-.125730 

• 1 1 6686E *01 

-.576750E+02 

.158925E*0C 

44 

18.86 

.024818 

.041027 

.042046 

.041716 

.0001 1 1 

.110P40 

-.144752 

.741341F*00 

-.209996E+02 

• 1 08865E* 0<? 

45 

23.16 

.037283 

.049811 

.049968 

.049664 

. 000147 

.100957 

-.118213 

.554764F+00 

-.106972E*02 

.71 5283E*0 1 

4ft 

26.61 

.049755 

.056106 

.056174 

.055883 

.000223 

.094163 

-.094693 

.451 085E+00 

-.644B61E«-01 

.488438E + 0 1 

47 

33.01 

.07471? 

.065834 

.065850 

.065548 

.000286 

.084785 

-.078656 

•336277E*00 

-.329020E* 01 

.280177E+01 

40 

38.32 

.099679 

.073432 

.073382 

.073060 

.000372 

.077550 

-.077664 

•270285F*00 

-,213556E*01 

.19212JF*01 

49 

43.06 

.12466? 

.079541 

.079549 

.079212 

.000329 

.070990 

-.080795 

.224676E400 

-• 157025E + 01 

• 145843E + 0 1 

50 

47.42 

.149629 

.084650 

.084720 

.084372 

.000277 

. Ob47 1 0 

-.084374 

. 1899 1 4F ♦ 0 0 

-. 123896E + 01 

.117483E+01 

51 

51.49 

.174610 

. 089068 

.009111 

.088754 

.000314 

.058594 

-.087787 

.161B14F*00 

-• 1 02513E *01 

.986145E*00 

52 

55.34 

.199593 

.092867 

.092058 

.092493 

.000373 

.052571 

-.091364 

• 1 38 1 06E *0 0 

- .88 1 396E* 00 

.B56768E*0U 

53 

62.57 

.249566 

.090784 

.098759 

,098380 

,000404 

.040645 

-.097742 

• 989560E-O 1 

-.704434E+00 

.694212E*00 

54 

69.35 

.299548 

.102901 

. 1 0?KB 1 

. 1 02493 

.000408 

.026761 

-.103114 

.664176E-01 

-.607705E+00 

. 60370 6E+00 

55 

75.64 

.349536 

.105519 

.105469 

.105077 

.000442 

.016758 

-.108843 

•373463F-0 1 

-.561603E*00 

.560430E + 0 0 

56 

02.15 

.399530 

. 1 06646 

.106647 

.106248 

.000398 

.004302 

-.115939 

.95S042E-O2 

- • 554 54 2E * 0 0 

.554466E+OU 

57 

08.36 

.449530 

. 1 06404 

.106428 

.106023 

.000381 

-.008696 

-.125198 

-• 1 87988E-0 1 

-,583912E*00 

. 583603E + 00 

56 

94.66 

.499536 

.104751 

•104741 

.104329 

.000423 

-.022836 

-.136300 

-.495027E-0 1 

- • 649024E ♦ 0 0 

,646646E*00 

59 

100.8] 

.549550 

•101489 

.101418 

.101003 

.000486 

-.038348 

-.148059 

-•843443F-0 1 

-.7508l4E*00 

.742873E*00 

60 

103.98 

.574569 

.099178 

.099065 

. 098652 

.000525 

-.046684 

-.153318 

-.103895E*00 

-.814662E+00 

,801647E*00 

61 

107.19 

.599571 

.096317 

•096200 

.095793 

.000524 

-.055350 

-.155818 

-.125027E*00 

-.877314E*00 

.857137E*0U 

62 

110.45 

.624587 

.092776 

.092702 

.092390 

.000386 

-.063944 

-.145695 

-.147073F+00 

-.886642E*00 

• 858633E*0 0 

63 

113.79 

.649603 

.080814 

.088809 

,088439 

.000375 

-.071706 

-.121296 

-. 168492F + 00 

- • 825262E*0 0 

• 791 326E* 0 0 

64 

117.20 

.674623 

.084293 

.084319 

.083976 

. 00031 7 

-.077998 

-.090198 

I87890E*00 

- ■ 723432E *00 

• 686747E *00 

65 

120.70 

.699644 

.079382 

.079375 

.079059 

.000323 

-.082563 

-.059161 

-.204633F+00 

- • 6 1 1 839E + 0 0 

.575326E*00 

66 

124.31 

•724666 

.074071 

.074047 

.073758 

.000313 

-.065430 

-.031832 

- • 2 1 8698F* 0 0 

- ,50 BRO OE * 00 

.474363E+00 

67 

128.04 

.749691 

.068390 

.068399 

. 060134 

.000256 

-.086777 

-.009485 

- .230394E ♦ 0 0 

- • 422272E *00 

. 39075 1 E*0 0 

60 

131.93 

.774716 

.062439 

.062463 

.062243 

.000196 

-.086019 

.008247 

- .24 0 1 22E ♦ 0 0 

-.351 437E*00 

,323094E*00 

69 

135.99 

.799742 

,056338 

.056346 

.056129 

.000209 

-.085739 

.022266 

-.24021 6F *00 

- , 29 1 593E ♦ 0 0 

. ?6658JE*00 

70 

140.24 

.824769 

.050047 

.050024 

.049831 

.000216 

-.003657 

.033773 

-.254843F+00 

-. 233796E* 0 0 

,212738E*00 

71 

144.73 

.849797 

.043576 

.043554 

.043385 

. 000190 

-.080635 

.043305 

-.259983E*00 

-.171947E*00 

. 1 55879E* 0 0 

72 

149.50 

.874825 

.036955 

.036973 

.036831 

.000124 

-.076723 

.050687 

- » 263529F* 00 

- . 1 05605E ♦ 0 0 

. 95487 7E-0 1 

73 

154.61 

.099854 

.030304 

.030323 

.030208 

.000096 

-.071994 

.055559 

-.265400E*00 

- .3764 0 1 E-0 1 

. 339867E-0 1 

74 

160.1 0 

.924683 

.023633 

. 023646 

.023559 

.000074 

-.066576 

.057374 

- , 265666E *00 

• 223672E-0 1 

• 20 1 922E-0 l 

75 

166,00 

.949911 

.017002 

.016977 

.016919 

.000083 

-.060694 

.055334 

-. 2648 05F + 0 0 

• 496267E-0 1 

. 448297E-0 A 

76 

172.66 

.974940 

.010331 

.010329 

.010301 

.000030 

-.054758 

.048005 

- • 264360F* 0 0 

- . 20 5638F-0 1 

, 1 85822E-0 1 

77 

176.96 

.989957 

.006306 

.006335 

.006323 

-.000017 

-.051450 

. 040186 

-.265752F«-00 

-.1 74626E*00 

• 1 57636E ♦ 0 0 

78 

178.45 

.994962 

.005028 

.004996 

.004990 

.000038 

-.050442 

.036839 

- , 266029E * 0 0 

-.257499E*00 

,232258E*00 

79 

179.99 

,999968 

.003650 

.003651 

,003651 

-.000001 

-.049504 

.033162 

- • 26B368E* 0 0 

-,359699E*00 

.324066E+00 

LEADING-EDGE 

RADIUS/C= 

.029222 









dy/dx 

-0. AT X/C = .943926 Y/C 

a ,001847 THETA= -164. 

604 





DY/DX 

=0, AT X/C= .350849 Y/C 

* -.063596 THETA= -76. 

004 





DY/D* 

=0. AT X/C = .416679 Y/C 

= .106330 THETA* 84. 

281 
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TABLE II.- CONTINUED 


PAGE 8 OUTPUT 


>- 

// GA(W )-1 AIRFOIL WITH BAD 

COORDINATE POINTS 


CHECK OF SMOOTHFD COORDINATES 

OF* .000100 

T 

( YSMO/C- CHECK VALUE) 

(YPPS-CHECK VALUE: 

1 

-.000000 

-.000969 

2 

.000000 

-.000343 

3 

•000000 

.000447 

4 

-.000000 

.001928 

5 

-.000001 

.002463 

6 

-.000000 

.001729 

7 

.000002 

.000338 

8 

.000003 

-.001214 

9 

.000002 

-.002315 

10 

.000001 

-.002145 

n 

-.000000 

-.000833 

i? 

-.000001 

.000664 

13 

-.000001 

.001267 

14 

-.000000 

.000543 

15 

.000001 

-.001177 

16 

.000001 

-.002626 

17 

.000000 

-.001807 

18 

-.000001 

.002097 

19 

-.000002 

.004562 

20 

-.000004 

.003987 

?1 

-.000004 

.002889 

22 

-.000003 

.001281 

23 

-.000000 

-.000125 

?4 

.000000 

-.000594 

25 

.000001 

-.000636 

26 

.000000 

-.000322 

?7 

-.000001 

.000155 

?8 

-.000002 

.000774 

29 

-.000001 

.000666 

30 

-.000000 

.000042 

31 

.000000 

-.000258 

32 

.000000 

.000161 

33 

-.000001 

.000756 

34 

.nooooi 

-.000461 

35 

.000002 

-.002933 

36 

.000003 

-.005923 

37 

.000001 

-.004470 

38 

-.000006 

.004796 

39 

-.000005 

.011671 

40 

-.000005 

.014370 

41 

.000002 

.000565 

42 

.000001 

-.007354 

43 

.000005 

-.011198 

44 

-.000001 

-.003994 

45 

-.000001 

.001782 

46 

-.000002 

.003287 

47 

-.000001 

.001379 

48 

.000001 

-.000300 

49 

.000001 

-.000540 

50 

.000000 

-.000116 

51 

-.000000 

.000129 

52 

-.000000 

.000010 

53 

.000000 

-.000202 

54 

.000000 

.000024 

55 

-.000000 

.000210 

56 

-.000000 

.000311 

57 

•000000 

.000179 

58 

.000001 

-.000126 

59 

.000001 

-.000797 

60 

.000002 

-.001428 

61 

.000001 

-.002166 

62 

.000001 

-.002127 

63 

.000000 

-.000790 

64 

-.000000 

.000217 

65 

-.nooooo 

.000592 

66 

-.000000 

.000667 

67 

-.000000 

.000620 

68 

-.000000 

.000463 

69 

-.000000 

.000286 

70 

-.000000 

.000195 

71 

-.000000 

.000218 

72 

-.000000 

.000259 

73 

.000000 

.000272 

74 

•000000 

.000311 

75 

.000000 

.000382 

76 

.000000 

.000389 

77 

-.000000 

.000238 

78 

-.000000 

.000144 

79 

•000000 

.000094 


SUM OF SQUARES* 


•000000 


.000750 





TABLE II.- CONTINUED 


PAGE 9 OUTPUT 



THE following data 

HAVE BEEN 

punched 

I PUNCH 

= 1 



// 

GA(W)-1 - 

AIPFOIL WITH 

bap coordinate points 



// 

IOP = 

0 








NU = 

40 








Dx = 

0,000000 

.001943 

.004911 

.012366 

.024818 

.037284 

.049756 

.074714 


• 099682 

.124655 

.149633 

.174614 

.199596 

.249573 

.299555 

.349544 


, 399540 

.449541 

,499549 

.549564 

.574574 

.599587 

.624602 

.649620 


.674640 

.699661 

.724685 

♦ 749710 

.774736 

.799762 

,824790 

.649818 


,87484ft 

.899877 

.Q24906 

.949935 

.974964 

.989982 

.994988 

,999994 

ny = 

, 0 0087R 

.012230 

.019288 

.030279 

.041717 

.049666 

.055864 

.065550 


.073062 

.079214 

.084374 

.088757 

.092496 

• 09ft383 

.102496 

.105080 


.106251 

.106026 

.104331 

.101005 

.098655 

.095795 

.092392 

.088442 


; 08397ft 

,079061 

.073760 

.068136 

.062245 

.056131 

.049832 

.043387 


.03683? 

,030209 

.023560 

.016920 

.010301 

.006323 

.004991 

.003651 

N'L = 

40 








DX = 

0.000000 

.002040 

.005060 

.012589 

.025117 

.037638 

.050155 

.075182 


.100204 

.125221 

.150235 

.175246 

.200256 

.250270 

.300278 

.350280 


.400279 

.45027? 

.500261 

.550243 

.575229 

.600216 

.625195 

.650180 


.675161 

. 700141 

.725121 

.750101 

.775081 

.800062 

.825044 

.850029 


.875017 

.900007 

.925002 

.950002 

.975008 

.990016 

.995020 

1.000025 

DY = 

,00087ft 

-.009085 

-.013927 

-.020541 

-.027087 

-.031809 

-.035668 

-.041837 


-.046647 

-.050521 

-.0*3683 

-.056268 

-.066367 

-.061366 

-.063047 

-.063597 


-.063070 

-.061409 

-.058463 

-.054009 

-.051138 

-.047802 

-.044014 

-.039846 


-.035418 

-.030836 

-.026176 

-.021502 

-.016900 

-.012497 

-.008452 

-.004924 


-.002034 

.000136 

.001491 

♦ 001805 

.000520 

-.001497 

-.002472 

-.003634 


PAGE 10 OUTPUT 


title 

— // 

GA(W)-1 . 

AIPFOIL WITH 

1 BAD COORDINATE POINTS 



// 




—THICKNESS AND 

CAMRER DISTRIBUTION 

— 



I 

xu/c 

YIJ/C 

XL/C 

Yl/C 

X/C 

Y/C 

T/C/2 

SLOPE 

ERROR 

1 

.99996 ft 

.00365] 

.998234 

-.003201 

.999101 

.000225 

.003534 

-14.2073 

.000005 

2 

.994962 

.004990 

.993303 

-.002122 

.994133 

.001434 

.003652 

-13.1308 

.000026 

3 

. 9ft9957 

.006323 

.988331 

-.001212 

.089144 

.002556 

.003954 

- 12.1802 

.000023 

u 

.9749^0 

.010301 

.973251 

.000681 

.974095 

.005491 

.004883 

-9.9589 

.000039 

6 

.949911 

. 0 1691Q 

.947878 

.001829 

.948894 

.009374 

.007613 

-7.6733 

.000028 

6 

.924863 

.023559 

.922434 

.001395 

.923658 

.012477 

.011149 

-6.3035 

.000019 

7 

.899854 

.030208 

.897053 

-.000078 

.898453 

.015065 

.015208 

-5.2838 

.000014 

8 

. R74R25 

.036831 

.871828 

-.002362 

.873326 

.017234 

.019653 

-4.3739 

.000012 

9 

• fl4 9 797 

.043385 

.846803 

-.005343 

.848300 

.019021 

.024410 

-3.5160 

.oooooi 

10 

.824769 

.049831 

.821955 

-.008924 

.823362 

.020454 

.029411 

-2.7419 

. 000005 

11 

.799742 

. 056129 

.797212 

-.012980 

,79ft477 

.021574 

.034578 

-2.0968 

.000006 

12 

.774716 

.062243 

.772501 

-.017364 

.773609 

.022439 

.039819 

-1.5938 

.oooooo 

13 

.749691 

.068134 

.747800 

-.021927 

.748745 

.023104 

.045040 

-1.2025 

.000005 

14 

.724666 

.07375ft 

.723151 

-.026541 

.723909 

,023609 

.050155 

-.8656 

.000003 

15 

.699644 

.079059 

.698614 

-.031115 

.699129 

.023972 

.055090 

-.5352 

.000004 

16 

.674623 

. 0P3976 

.674209 

-.035586 

.674416 

.024195 

.059781 

-.1983 

.000003 

17 

.649603 

.088439 

.649666 

-.039897 

.649735 

.024271 

.064168 

.1174 

.000003 

1R 

.624587 

.092390 

.62*454 

-.043969 

.625020 

.024210 

.068181 

.3644 

. 000003 

19 

.599571 

. 095793 

.600862 

-.047706 

.600217 

,024043 

.071753 

.5153 

.000001 

20 

.574559 

.098652 

.576102 

-.051026 

.575331 

.023813 

.074843 

.5906 

.000001 

21 

.549550 

♦ 101003 

.551259 

-.053898 

.550405 

.023552 

.077455 

.6323 

.oooooi 

22 

.499536 

. 1 04329 

.501520 

-.058368 

.500528 

.022980 

.001355 

.6985 

.000001 

23 

.449530 

.106023 

.451823 

-.061336 

.450677 

.022344 

.083607 

.7851 

.000000 

24 

.399530 

. 106248 

.402236 

-.06302b 

.400883 

.021611 

.084647 

.9159 

.000000 

25 

.349535 

. 105077 

.352752 

-.063595 

.351144 

.020741 

.084351 

1.0926 

.000000 

26 

,29954ft 

. 102493 

.303336 

-.063111 

.301442 

.019691 

.082823 

1.3106 

.oooooo 

27 

.249566 

. 098380 

.253936 

-.061529 

.251751 

.018426 

.079985 

1 .5654 

.000000 

28 

.199593 

.092493 

.204506 

-.058680 

.202049 

.016907 

.075626 

1.8615 

.oooooo 

29 

. 174610 

.088754 

.179774 

-.056681 

.177192 

.016037 

.072763 

2,0338 

,000000 

30 

. 149629 

.08437? 

.155057 

-.054222 

,152343 

.015075 

.069350 

2.2425 

.oooooo 

31 

.124652 

. 079212 

. 1 30394 

-.051227 

.127523 

.013992 

.065282 

2.5205 

.oooooo 

3? 

.099679 

.073060 

.105827 

-.047589 

.102753 

.012736 

.060403 

2.9170 

.oooooi 

33 

.074712 

.065548 

.081471 

-.043151 

.078092 

.011198 

.054454 

3.5578 

.000002 

34 

.049755 

.055883 

.057757 

-.037724 

.053756 

.009079 

.046974 

4.8859 

.000002 

35 

. 037283 

.049664 

.046504 

-.034609 

.041894 

.007528 

.042388 

6.2449 

.oooooi 

36 

.024818 

.041716 

.036053 

-.031268 

.030435 

.005224 

,036922 

8.7511 

.oooooo 

37 

.012366 

.030278 

.026086 

-.027496 

.019226 

.001391 

.029691 

13,3584 

.000003 

3ft 

.00491 1 

,01928ft 

,018942 

-.024216 

.011927 

-.002464 

.022855 

17.8758 

.000003 

39 

.001943 

.012230 

.014553 

-.021786 

.006240 

-• 00477ft 

.018139 

20.3388 

.000002 

40 

0.000000 

. 00087R 

.007551 

-.016593 

.003776 

-.007858 

.009517 

23.3746 

.000005 

41 

.002056 

-.009120 

.002056 

-.009120 

.002056 

-.009120 

0.000000 

36.7380 

.oooooo 
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TABLE II.- CONCLUDED 


PAGE 11 OUTPLrr 

TITLE— 

// GA < W ) - 

1 AIRFOIL WITH 

BAD COORDINATE 

POINTS 



- 

-UPPFP SURFACE 

INTERPOLATED COORDINATES — 


I 

XU 

YU 

DY/DX 

D (DY/DX ) /DX 

CURVATURE 

1 

0.000000 

.008778 

• 1 0 000 OE + 99 

. 1 00000E + 99 

• 342209E + 02 

2 

.010000 

.089074 

• 4 1 7266E* 0 1 

-.196293E+04 

• 248476E+02 

3 

.020000 

.124016 

.301 025E+0 1 

-.7 1254 1E + 03 

* 223259E* 02 

4 

*050000 

. 194594 

• 1 92363E + 0 1 

-. 197447E+03 

• 193756E + 02 

5 

.100000 

.273409 

• 1 32338E* 0 1 

- . 762275E* 02 

. 1 67032E+ 0 2 

6 

.500000 

.559929 

• 4495 1 2E + 00 

- . 63975 1E + 0 1 

.485424E+01 

7 

.800000 

.672815 

•319754E+00 

- . 296890E + 0 1 

. 256555E + 0 1 

8 

1.000000 

.731472 

,269601E*00 

-.2 1 2599E ♦ 0 1 

. 191361E + 0 1 

9 

2.000000 

.925495 

• 1 37748E ♦ 00 

-.879432E+00 

• 854982E+00 

10 

3.000000 

1.025230 

. 66 1 428E-0 1 

-• 607 1 1 1 E + 0 0 

•603149E*00 

11 

4.000000 

1 .062524 

.929760E-02 

- . 554703E + 0 0 

. 554631E + 0 0 

12 

5.000000 

1.043058 

- • 498038E-0 1 

-.649796E+00 

,647386E*00 

13 

6.000000 

.957391 

-• 125403E+00 

- * 87740 7E + 00 

.8571 09E+00 

14 

7.000000 

.789865 

-.204851E+00 

-.61051 1E*00 

•574003E+00 

15 

8.000000 

.560652 

-• 24829 1E + 00 

-.291119E+00 

. 266134E+00 

16 

9.000000 

.301692 

-.265405E^00 

- • 373856E-0 1 

• 337568E-0 1 

37 

9.999682 

.036510 

-• 268368E* 00 

- • 359699E + 0 0 

. 324066E + 00 

CHORD 

= 10.000000 





PAGE 12 OUTPUT 

TJTLF — 

// BA ( W ) - 

1 airfoil WITH 

BAD COORDINATE 

POINTS 



- 

-LOWFR SURFACE 

INTERPOLATED COORDINATES — 


I 

XL 

YL 

DY/DX 

D ( DY/D X ) /DX 

CURVATURE 

1 

0.000000 

.008778 

. 100000E + 99 

• 1 0 0 0 0 OE + 99 

• 342209E* 02 

2 

.010000 

-.063026 

-•335261E+01 

. 19194 1E+04 

• 448226E + 02 

3 

.020000 

-.089958 

- • 2226 1 9E* 0 1 

* 68 1 620E + 03 

.46894 1 E + 02 

4 

.050000 

-.138530 

-• 124092E+0 1 

• 1 64756E ♦ 0 3 

•407024E+02 

5 

.100000 

-.186816 

-• 777581 E + 00 

• 526254E + 02 

• 258900E + 02 

1 6 

.500000 

-.356231 

-.283778E+00 

. 354689E + 0 1 

• 3 1 5786E + 0 1 

7 

.800000 

-.428505 

-•205762E+00 

. 195000E + 01 

• 183240E+01 

8 

1.000000 

-.466116 

-.171908E+00 

. 1 47902E + 0 1 

.141580E+01 

9 

2.000000 

-.583469 

-.753524E-01 

.666760E+00 

•66 1121 E+ 00 

10 

3.000000 

-.630395 

-• 220622E-0 1 

• 446844E + 0 0 

.446518E+00 

1 1 

4.000000 

-.630743 

.2141 27E-0 1 

. 448574E ♦ 0 0 

•448266E+00 

12 

5.000000 

-.584799 

. 730575E-0 1 

.604586E+00 

.599778E+00 

13 

6.000000 

-.478298 

• 1 42695 F + 00 

• 748504E ♦ 0 0 

• 7262 1 1 E + 00 

14 

7.000000 

-.308580 

. 185414E+00 

. 120328E+00 

. 1 14379E+00 

15 

8.000000 

-.125036 

• 1 70 1 99E* 00 

- .58 1575E + 0 0 

• 557 1 90E + 00 

16 

9.000000 

.001376 

.71 3875E-0 1 

- . 1 2791 6E + 0 1 

• 1 26944E + 0 1 

17 

10.000000 

-.036343 

-.253004E+00 

- . 865835E-*' 0 1 

• 788889E + 0 1 
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TABLE III.- SAMPLE OUTPUT FOR AIRFOIL SCALING PROGRAM 


2 


PAGE 1 OUTPUT 


— INPUT DATA- 


TITLE- 

- * G A ( W ) - 1 

SMOOTHED 



NT= 41 

IPLOT= 1 

I PUNCH= 

0 IOP= 0 


X/C = 

* 1 820 OOE-02 
• 78 1 350E-0 1 

* 35 1 25 1 E* 0 0 

* 649822E* 0 0 

* 848372E* 0 0 

* 9991 18E + 0 0 

* 3381 0 0E-02 

* 1 02793E + 00 
*40 1 0 1 OF* 00 
•674533E+00 
.873407E+00 

* 79 1 900E-02 
. 1 27608E* 00 

* 45 08 1 4E + 0 0 

* 699266E + 00 

* 898533E+ 00 

* 1 1 6860E-0 1 

* 152464E+00 

* 50 0657E ♦ 00 

* 724045E + 00 

* 923728E + 0 0 

Y/C = 

-*8431 OOE-02 

* 1 09520E-0 1 

* 1 93480 E-0 1 
•215600E-0 1 

* 1 53830E-0 1 
-.412100E-02 

-* 73960 0E-02 

* 1 23760E-0 1 

* 200 1 20E-0 1 
.213760E-0 1 

* 1 34750E-0 1 

-* 455900E-02 

* 1 351 90E-0 1 

* 205450E-0 1 
*21 0550E-0 1 

* 1 1 1 980E-0 1 

-• 239900E-02 

* 1 45050&-0 1 

* 209800E-0 1 

* 205940E-0 1 
.850900E-02 

T/C/2= 

0. 

.544440E-01 

• 84364 OE-0 1 
• 642030E-0 1 

* 244720E-0 1 
• 353500E-02 

• 90250 0E-02 

• 60368 OE-O 1 

• 846590E-0 1 

• 59824 OE-O 1 

• 1 97 1 60E-0 1 

• 1 78730E-0 1 

* 652520E-0 1 
.836790E-01 

* 55 1 240E-0 1 

• 1 52540E-0 1 

• 226660E-0 1 

• 693270E-0 1 

• 8 1 3 1 80E-0 1 
•501760E-01 

• 1 1 1 720E-0 1 

SLOPE= 

.592326E+00 
* 576090E-0 1 
* 148330F-0 1 
- • 277500E-02 
-.665680E-01 
-•2521 62E+00 

* 383967E* 0 0 

* 462850E-0 1 

* 1 1 930 OE-O 1 
-* 78080 0E-02 
-• 809090E-0 1 

•337573E+00 
.399860E-01 
* 97220 OE-02 
-• 1 331 80E-0 1 
-.962880E-01 

• 299424E + 0 0 

• 3555 1 0E"0 1 

• 807400E-02 
-• 1 90370E-0 1 
-.114138E+00 

OJ 

ii 

»- 

_J 

NEW T/C = 

•130000 

.200000 



(T/OMAX FOR INPUT AIRFOIL 


169405 AT X/C 


387925 


•192200E-01 

• 1 7731 3E ♦ 0 0 

• 550503F* 0 0 

• 748863E + 0 0 
.948946E+00 


• 1 26700E-02 

• 1 53780E-0 1 
. 2 1 3350E-0 1 
.199850E-01 
*52930 0E-02 


*29666 OE-O 1 
.727400E-01 
.774050E-01 
.450520E-01 
•761800E-02 


• 228491E+00 
.318050E-01 
*65020 0E-02 
-.25240OE-O1 
- * 1 38752E+00 


*30630 OE-O 1 
.202154E+00 
. 57540 9E + 0 0 
. 773699E + 00 
.974128E+00 


.5027 0 0E-02 
•161540E-01 
.21 4760E-0 1 
. 1 92040E-0 1 
. 1 277 0 0E-02 


*37021 OE-O 1 
*756 00 OE-O 1 
.748020E-01 
.398330E-01 
.488500E-02 


• 1 52664E* 00 
.284960E-01 
*547 00 0E-02 
- .32660 OE-O 1 
-*179363E*00 


.420950E-01 
.251 836E* 00 
•600279E+00 
.798548E+00 
* 9891 66E + 00 


.734200E-02 
* 1 74660E-0 1 
•215800E-0 1 
.182080E-01 
-.174200E-02 


.424880E-01 

* 799640E-0 1 

* 7 1 7340E-0 1 
.346060E-01 
.385800E-02 


* 1 08353E+00 
.229570E-01 
.388800E-02 
-.419630E-01 
-.217802E+00 


•538920E-01 

.301530E+00 

•6250Q4E+00 

• 823428E + 0 0 

* 9941 53E* 0 0 


•689900E-02 
* 185130E-0 1 
.216200E-01 
* 1 69490E-0 1 
-.288900E-02 


.470340E-01 
• 82821 OE-O 1 
.681920E-01 
.294590E-01 
.365500E-02 


* 828360E-0 1 
.184780E-01 

* 1 23000E-02 
-.533870E-01 
-.233989E+00 





TABLE III.- CONTINUED 


PAGE 2 OUTPUT 

TITLE — 

* 

GA(W)-1 

SMOOTHED # 




SCALED COORDINATES FOR (T/OMAX = ,2000 



UPPER 

LOWER 

I 


X/C 

Y/C 

X/C 

Y/C 

1 


0.000000 

.002481 

0.000000 

.002481 

2 


.001540 

.015339 

.002428 

-.008425 

3 


.004400 

.023152 

.007977 

-.017262 

4 


.011888 

.035353 

.015506 

-.024450 

5 


.024575 

.048189 

.020174 

-.027946 

6 


.037252 

.057165 

.027742 

-.032821 

7 


.049869 

.064188 

.037858 

-.038142 

8 


.074987 

.075064 

.048093 

-.042493 

9 


.100029 

.083506 

.059051 

-.046403 

10 


.125043 

.090425 

.082383 

-.053177 

1 1 


.150050 

.096227 

.106619 

-.058773 

12 


.175058 

.101134 

.131197 

-.063407 

13 


.200067 

.105290 

.155864 

-.067239 

14 


.250087 

.111761 

.180515 

-.070401 

15 


.300103 

.116186 

.205149 

-.073007 

16 


.350115 

.118846 

.254418 

-.076856 

17 


.400120 

.119861 

.303713 

-.079188 

18 


.450118 

.119240 

.353067 

- • 0R0 180 

19 


.500107 

.116891 

.402503 

-.079868 

20 


.550096 

.112631 

.452037 

-.078182 

21 


.575094 

.109702 

.501656 

-.074963 

22 


.600098 

.106187 

.551283 

-.069994 

23 


.625114 

.102049 

.576059 

-.066783 

24 


.650142 

.097283 

.600756 

-.063060 1 

25 


.675175 

.091932 

.625312 

-.058842 

26 


.700204 

.086063 

.649722 

-.054196 

27 


.725225 

.079760 

.674073 

-.049212 

28 


.750239 

.073100 

.698472 

-.043985 

29 


.775248 

.066155 

.722971 

-.038604 

30 


.800256 

.058983 

.747555 

-.033161 

31 


.825259 

.051639 

.772179 

-.027777 

32 


.850250 

.044177 

.796831 

-.022595 

33 


.875225 

.036647 

.821550 

-.017767 

34 


.900182 

.029101 

.846409 

-.013434 

35 


.925129 

.021596 

.871465 

-.009718 

36 


.950069 

.014189 

.896722 

-.006722 

37 


.975017 

.006946 

.922126 

-.004591 

38 


.989999 

.002703 

.947583 

-.003612 

39 


.994998 

.001308 

.972961 

-.004394 

40 


1.000000 

-.000079 

.988032 

-.006184 

41 




.992999 

-.007081 

4? 




1.000000 

-.008667 
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TABLE III.- CONCLUDED 


PAGE 3 OLTTPUT 

TITLE— * 

GA(W)-1 SMOOTHED * 



CAMBER AND THICKNESS DISTRIBUTIONS 

FOR (T/C)MAX 

= .2000 



CAMBER 


THICKNESS 

I 

X/C 

Y/C 

SLOPE 

T/C/2 

1 

.002428 

-.008425 

33.9378 

0.000000 

2 

.003988 

-.007390 

21.9997 

.021310 

3 

.008523 

-.004555 

19.3415 

.042202 

4 

.012287 

-.002397 

17.1557 

.053519 

5 

.019815 

.001266 

13.0916 

.070048 

6 

.031216 

.005023 

8.7470 

.087414 

7 

.042673 

.007336 

6.2082 

.100323 

8 

.054460 

.008892 

4.7462 

.111057 

9 

.078685 

.010944 

3.3008 

.128554 

10 

.103324 

.012366 

2.6519 

.142541 

1 1 

.128120 

.013509 

2.2910 

.154073 

12 

.152957 

.014494 

2.0369 

.163695 

13 

.177787 

.015366 

1.8223 

.171754 

14 

.202608 

.016142 

1.6327 

.178507 

15 

.252252 

.017453 

1.3153 

.188812 

16 

.301908 

.018499 

1.0587 

.195558 

17 

.351591 

.019333 

.8499 

.199201 

18 

.401312 

.019997 

.6835 

.199897 

19 

.451077 

.020529 

.5570 

.197583 

20 

.500882 

.020964 

.4626 

.192009 

21 

.550690 

.021319 

.3725 

.182769 

22 

.575576 

.021459 

.3134 

.176623 

23 

.600427 

.021563 

.2228 

.169379 

24 

.625213 

.021603 

.0705 

.161015 

25 

.649932 

.021543 

-.1590 

.151597 

26 

.674624 

.021360 

-.4474 

.141257 

27 

.699338 

.021039 

-.7631 

.130159 

28 

.724098 

,020578 

-1.0907 

.118476 

29 

.748897 

.019970 

-1.4466 

.106377 

30 

.773714 

.019189 

-1.8713 

.094054 

31 

.798544 

.018194 

-2.4043 

.081712 

32 

.823405 

.016936 

-3.0588 

.069559 

33 

.848329 

.015371 

-3.8141 

.057783 

34 

.873345 

.013465 

-4.6357 

.046554 

35 

.898452 

.011189 

-5.5169 

.036018 

36 

.923628 

.008502 

-6.5396 

.026379 

37 

.948826 

.005289 

-7.9499 

.017988 

38 

.973989 

.001276 

-10.2767 

.011534 

39 

.989015 

-.001741 

-12.4791 

.009110 

40 

.993998 

-.002887 

-13.4066 

.008630 

41 

.998960 

-.004118 

-14.4478 

.008347 
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Figure 1.- Properties of ^-transformation function. 


177 






// GA( W) -1 AIRFOIL WITH BAD COORDINATE POINTS // 


Figure 3.- Sample plot for airfoil smoothing program plotting option 1. 


YPPS 








* GR( N) -1 SMOOTHED * 

PLOT OF AIRFOIL GENERATED BY SCALING PROGRAM ( T/C) MAX 


Figure 7.- Sample plot for airfoil scaling program. 
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Figure 9.- Comparison between unsmoothed and smoothed square-root of curvature for a typical airfoil. 
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